remove use of JSON::MaybeXS

JSON::MaybeXS can still bring in JSON::XS, which is incompatible with some of
our uses (e.g. it doesn't support allow_bignum). Instead piggyback on
Mojo::JSON's heuristic for determining the backend.

Author: karenetheridge

Changes

@@ -1,6 +1,9 @@
 Revision history for JSON-Schema-Tiny
 
 {{$NEXT}}
+          - remove use of JSON::MaybeXS, to avoid potential use of JSON::XS;
+            now we use Cpanel::JSON::XS or JSON::PP directly, using the same
+            environment variables as in Mojo::JSON for customization.
 
 0.022     2023-12-17 00:42:56Z
           - new $STRINGY_NUMBERS option, for validating numbers more loosely

lib/JSON/Schema/Tiny.pm

@@ -20,7 +20,7 @@ use Mojo::URL;
 use Mojo::JSON::Pointer;
 use Carp qw(croak carp);
 use Storable 'dclone';
-use JSON::MaybeXS 1.004001 'is_bool';
+use Mojo::JSON ();  # for JSON_XS, MOJO_NO_JSON_XS environment variables
 use Feature::Compat::Try;
 use JSON::PP ();
 use List::Util 1.33 qw(any none);
@@ -1103,7 +1103,15 @@ sub get_type ($value) {
     if !($flags & B::SVf_POK) && ($flags & (B::SVf_IOK | B::SVf_NOK));
 
   croak sprintf('ambiguous type for %s',
-    JSON::MaybeXS->new(allow_nonref => 1, canonical => 1, utf8 => 0)->encode($value));
+    (Mojo::JSON::JSON_XS ? 'Cpanel::JSON::XS' : 'JSON::PP')->new->allow_nonref(1)->canonical(1)->utf8(0)->encode($value));
+}
+
+# lifted from JSON::MaybeXS
+sub is_bool ($value) {
+  Scalar::Util::blessed($value)
+    and ($value->isa('JSON::PP::Boolean')
+      or $value->isa('Cpanel::JSON::XS::Boolean')
+      or $value->isa('JSON::XS::Boolean'));
 }
 
 # compares two arbitrary data payloads for equality, as per
@@ -1314,7 +1322,7 @@ validator, supporting the most popular keywords.
 
 =head1 FUNCTIONS
 
-=for Pod::Coverage is_type get_type is_equal is_elements_unique jsonp canonical_uri E abort
+=for Pod::Coverage is_type get_type is_bool is_equal is_elements_unique jsonp canonical_uri E abort
 assert_keyword_type assert_pattern assert_uri assert_non_negative_integer assert_array_schemas
 new assert_uri_reference sprintf_num
 

t/additional-tests-draft2019-09.t

@@ -15,7 +15,7 @@ use Test::Deep;
 use lib 't/lib';
 use Acceptance;
 use Path::Tiny;
-use JSON::MaybeXS;
+use Mojo::JSON 'decode_json';
 
 my $version = 'draft2019-09';
 

t/additional-tests-draft2020-12.t

@@ -15,7 +15,7 @@ use Test::Deep;
 use lib 't/lib';
 use Acceptance;
 use Path::Tiny;
-use JSON::MaybeXS;
+use Mojo::JSON 'decode_json';
 
 my $version = 'draft2020-12';
 

t/equality.t

@@ -62,7 +62,7 @@ subtest 'equality, using inflated data' => sub {
   }
 };
 
-my $decoder = JSON::MaybeXS->new(allow_nonref => 1, utf8 => 0);
+my $decoder = (Mojo::JSON::JSON_XS ? 'Cpanel::JSON::XS' : 'JSON::PP')->new->allow_nonref(1)->utf8(0);
 
 subtest 'equality, using JSON strings' => sub {
   foreach my $test (

t/lib/Acceptance.pm

@@ -40,7 +40,7 @@ sub acceptance_tests (%options) {
   my $js = JSON::Schema::Tiny->new($options{evaluator}->%*);
   my $js_short_circuit = $ENV{NO_SHORT_CIRCUIT} || JSON::Schema::Tiny->new($options{evaluator}->%*, short_circuit => 1);
 
-  my $encoder = JSON::MaybeXS->new(allow_nonref => 1, utf8 => 0, canonical => 1, pretty => 1);
+  my $encoder = (Mojo::JSON::JSON_XS ? 'Cpanel::JSON::XS' : 'JSON::PP')->new->allow_nonref(1)->utf8(0)->canonical(1)->pretty(1);
   $encoder->indent_length(2) if $encoder->can('indent_length');
 
   $accepter->acceptance(

t/lib/Helper.pm

@@ -14,8 +14,7 @@ use open ':std', ':encoding(UTF-8)'; # force stdin, stdout, stderr into utf8
 use JSON::PP ();
 use constant { true => JSON::PP::true, false => JSON::PP::false };
 
-use JSON::MaybeXS;
-my $encoder = JSON::MaybeXS->new(allow_nonref => 1, utf8 => 0);
+my $encoder = (Mojo::JSON::JSON_XS ? 'Cpanel::JSON::XS' : 'JSON::PP')->new->allow_nonref(1)->utf8(0);
 
 # like sprintf, but all list items are JSON-encoded. assumes placeholders are %s!
 sub json_sprintf {

t/type.t

@@ -63,7 +63,7 @@ foreach my $type (sort keys %inflated_data) {
   };
 }
 
-my $decoder = JSON::MaybeXS->new(allow_nonref => 1, canonical => 1, utf8 => 1, allow_bignum => 1);
+my $decoder = (Mojo::JSON::JSON_XS ? 'Cpanel::JSON::XS' : 'JSON::PP')->new->allow_nonref(1)->canonical(1)->utf8(1)->allow_bignum(1);
 
 foreach my $type (sort keys %json_data) {
   subtest 'JSON-encoded data, type: '.$type => sub {