4 # hide Cpanel::JSON::XS, JSON::XS
6 my ( $m, $c ) = ( $_, qq{die "Can't locate $_ (hidden)\n"} );
7 sub { return unless $_[1] eq $m; open my $fh, "<", \$c; return $fh }
8 } qw{Cpanel/JSON/XS.pm JSON/XS.pm};
10 use if !eval { require JSON::PP; 1; }, 'Test::More', skip_all => 'No JSON::PP';
14 diag 'Using JSON::PP ', JSON::PP->VERSION;
16 is(JSON, 'JSON::PP', 'Correct JSON class');
19 \&encode_json, \&JSON::PP::encode_json,
20 'Correct encode_json function'
24 \&decode_json, \&JSON::PP::decode_json,
25 'Correct encode_json function'
28 require './t/lib/is_bool.pm';