Z
(
T/TO/TOBYINK/Z-0.008.tar.gz, TOBYINK, 2020;
MetaCPAN
)
},
encode_json => sub {
if ( eval 'use JSON::MaybeXS 1.003000 (); 1' ) {
return \&JSON::MaybeXS::encode_json;
}
require JSON::PP;
return \&JSON::PP::encode_json;
},
decode_json => sub {
if ( eval 'use JSON::MaybeXS 1.003000 (); 1' ) {
return \&JSON::MaybeXS::decode_json;
}
require JSON::PP;
return \&JSON::PP::decode_json;
},
STRICT => sub {
$STRICT ? sub () { !!1 } : s
<Data::Dumper>, C<maybe> and C<provided> from
L<PerlX::Maybe>, C<encode_json> and C<decode_json> from
L<JSON::MaybeXS> or L<JSON::PP> (depending which is installed), and
C<STRICT> and C<LAX> from L<De