Yet Another CPAN Grep

JSON-Util ( J/JK/JKUTEJ/JSON-Util-0.06.tar.gz, JKUTEJ, 2015; MetaCPAN )

JSON-Util/lib/JSON/Util.pm ( view source; MetaCPAN )

package JSON::Util;

=head1 NAME

JSON::Util - easy and portable encode/decode of JSON

=head1 SYNOPSIS

    use JSON::Util;
    $data = JSON::Util->decode('{"bar": "foo"}');
    $data = JSON::Util->d

e.json');
    JSON::Util->encode({ 'foo' => 'bar' }, 'someother.json');

    $data = JSON::Util->decode(['..', 'folder', some.json]);
    JSON::Util->encode([123,321], ['..', 'folder', someother.json]

);

    print JSON::Util->encode([987,789]), "\n";
    print JSON::Util->encode({987 => 789}), "\n";

    my $json = JSON::Util->new(pretty => 0, convert_blessed => 1);
    print $json->encode([ $obje