Yet Another CPAN Grep

JSON-Meth ( Z/ZO/ZOFFIX/JSON-Meth-1.001007.tar.gz, ZOFFIX, 2015; MetaCPAN )

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

package JSON::Meth;

use strict;
use warnings;

our $VERSION = '1.001007'; # VERSION

use JSON::MaybeXS;
use 5.008001;
use Carp;
use Scalar::Util qw/blessed/;
require Exporter;
our @ISA = qw(Exporter)

our @EXPORT_OK = qw($json);

my $data;

use overload q{""}  => sub { $data },
             q{@{}} => sub { $data },
             q{%{}} => sub { $data };

our ( $json, $j );
$json = $j = bless sub {

in;

    my $json_obj = JSON::MaybeXS->new(
        convert_blessed => 1,
        allow_blessed   => 1,
    );

    # plain data or object at root; just encode it
    return $data = $json_obj->decode(