use YAML::XS for speed

thank you tinita! ingydotnet/yaml-libyaml-pm#110

Author: karenetheridge

examples/synopsis

@@ -5,11 +5,13 @@ use 5.020;
 use OpenAPI::Modern;
 use HTTP::Request::Common;
 use Mojo::Message::Response;
-use YAML::PP;
+use YAML::XS 0.87;
+
+local $YAML::XS::Boolean = 'JSON::PP';
 
 my $openapi = OpenAPI::Modern->new(
   openapi_uri => '/api',
-  openapi_schema => YAML::PP->new(boolean => 'JSON::PP')->load_string(<<'YAML'));
+  openapi_schema => Load(<<'YAML'));
 openapi: 3.1.0
 info:
   title: Test API

lib/OpenAPI/Modern.pm

@@ -690,9 +690,13 @@ __END__
 
 =head1 SYNOPSIS
 
+  use YAML::XS 0.87;
+  use OpenAPI::Modern;
+  local $YAML::XS::Boolean = 'JSON::PP';
+
   my $openapi = OpenAPI::Modern->new(
     openapi_uri => '/api',
-    openapi_schema => YAML::PP->new(boolean => 'JSON::PP')->load_string(<<'YAML'));
+    openapi_schema => Load(<<'YAML'));
   openapi: 3.1.0
   info:
     title: Test API

t/find_path.t

@@ -16,7 +16,6 @@ use OpenAPI::Modern;
 use JSON::Schema::Modern::Utilities 'jsonp';
 use Test::File::ShareDir -share => { -dist => { 'OpenAPI-Modern' => 'share' } };
 use constant { true => JSON::PP::true, false => JSON::PP::false };
-use YAML::PP 0.005;
 
 use lib 't/lib';
 use Helper;
@@ -32,12 +31,11 @@ YAML
 # the absolute uri we will see in errors
 my $doc_uri_rel = Mojo::URL->new('/api');
 my $doc_uri = $doc_uri_rel->to_abs(Mojo::URL->new('https://example.com'));
-my $yamlpp = YAML::PP->new(boolean => 'JSON::PP');
 
 subtest 'bad conversion to Mojo::Message::Request' => sub {
   my $openapi = OpenAPI::Modern->new(
     openapi_uri => '/api',
-    openapi_schema => $yamlpp->load_string(<<YAML));
+    openapi_schema => yaml(<<YAML));
 $openapi_preamble
 paths: {}
 YAML
@@ -71,7 +69,7 @@ note 'REQUEST/RESPONSE TYPE: '.$::TYPE;
 subtest 'request is parsed to get path information' => sub {
   my $openapi = OpenAPI::Modern->new(
     openapi_uri => '/api',
-    openapi_schema => $yamlpp->load_string(<<YAML));
+    openapi_schema =>yaml(<<YAML));
 $openapi_preamble
 paths:
   /foo/{foo_id}:
@@ -406,7 +404,7 @@ YAML
 
   $openapi = OpenAPI::Modern->new(
     openapi_uri => '/api',
-    openapi_schema => $yamlpp->load_string(<<YAML));
+    openapi_schema => yaml(<<YAML));
 $openapi_preamble
 paths:
   /foo: {}
@@ -437,7 +435,7 @@ YAML
 
   $openapi = OpenAPI::Modern->new(
     openapi_uri => '/api',
-    openapi_schema => $yamlpp->load_string(<<YAML));
+    openapi_schema => yaml(<<YAML));
 $openapi_preamble
 paths:
   /foo/{foo_id}:
@@ -580,7 +578,7 @@ YAML
 
   $openapi = OpenAPI::Modern->new(
     openapi_uri => '/api',
-    openapi_schema => $yamlpp->load_string(<<YAML));
+    openapi_schema => yaml(<<YAML));
 $openapi_preamble
 paths:
   /foo/{foo_id}/bar/{foo_id}:
@@ -612,7 +610,7 @@ YAML
 
   $openapi = OpenAPI::Modern->new(
     openapi_uri => '/api',
-    openapi_schema => $yamlpp->load_string(<<YAML));
+    openapi_schema => yaml(<<YAML));
 $openapi_preamble
 paths:
   /foo/{foo_id}:
@@ -655,7 +653,7 @@ YAML
 subtest 'no request is provided: options are relied on as the sole source of truth' => sub {
   my $openapi = OpenAPI::Modern->new(
     openapi_uri => '/api',
-    openapi_schema => $yamlpp->load_string(<<YAML));
+    openapi_schema => yaml(<<YAML));
 $openapi_preamble
 paths:
   /foo/{foo_id}:
@@ -747,7 +745,7 @@ YAML
 
   $openapi = OpenAPI::Modern->new(
     openapi_uri => '/api',
-    openapi_schema => $yamlpp->load_string(<<YAML));
+    openapi_schema => yaml(<<YAML));
 $openapi_preamble
 paths:
   /foo/{foo_id}:

t/lib/Helper.pm

@@ -13,6 +13,7 @@ use HTTP::Response;
 use HTTP::Status ();
 use Mojo::Message::Request;
 use Mojo::Message::Response;
+use YAML::XS 0.87;
 
 # type can be
 # 'lwp': classes of type URI, HTTP::Headers, HTTP::Request, HTTP::Response
@@ -98,4 +99,9 @@ sub document_result ($document) {
   );
 }
 
+sub yaml ($string) {
+  local $YAML::XS::Boolean = 'JSON::PP';
+  Load(Encode::encode('UTF-8', $string));
+}
+
 1;

t/operationIds.t

@@ -15,14 +15,11 @@ use Test::Deep;
 use JSON::Schema::Modern;
 use JSON::Schema::Modern::Document::OpenAPI;
 use JSON::Schema::Modern::Utilities 'jsonp';
-use YAML::PP;
 use Test::File::ShareDir -share => { -dist => { 'OpenAPI-Modern' => 'share' } };
 
 # the document where most constraints are defined
 use constant SCHEMA => 'https://spec.openapis.org/oas/3.1/schema/2022-10-07';
 
-my $yamlpp = YAML::PP->new(boolean => 'JSON::PP');
-
 subtest 'extract operationIds and identify duplicates' => sub {
   my $yaml = <<'YAML';
 ---
@@ -68,7 +65,7 @@ YAML
   my $doc = JSON::Schema::Modern::Document::OpenAPI->new(
     canonical_uri => 'http://localhost:1234/api',
     evaluator => my $js = JSON::Schema::Modern->new,
-    schema => $yamlpp->load_string($yaml),
+    schema => yaml($yaml),
   );
 
   ok(!$doc->errors, 'no errors when parsing this document');
@@ -90,7 +87,7 @@ YAML
   $doc = JSON::Schema::Modern::Document::OpenAPI->new(
     canonical_uri => 'http://localhost:1234/api',
     evaluator => $js = JSON::Schema::Modern->new,
-    schema => $yamlpp->load_string($yaml =~ s/operation_id_[a-z]/operation_id_dupe/gr),
+    schema => yaml($yaml =~ s/operation_id_[a-z]/operation_id_dupe/gr),
   );
 
   cmp_deeply(