File Coverage

blib/lib/JSON/Meth.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod			n/a
total	33	33	100.0

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 = qw($j);
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 {
    my $in = shift;
    return undef unless defined $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($in)
        if not ref $in
            or ( blessed $in and blessed $in ne 'JSON::Meth' );

    return $data = $json_obj->encode($in)
        unless ref $in eq 'JSON::Meth';

    # if we got up to here, then we're dealing with a $j->$j call

    defined $data
    or croak 'You tried to call $j->$j, but $j does not have any data '
        . ' stored. You need at least one encode/decode call prior to '
        . ' this, for $j->$j to work.';

    return $data = $json_obj->decode($data)
        unless ref $data;

    return $data = $json_obj->encode($data);
}, __PACKAGE__;

q{
    Q: How many programmers does it take to change a light bulb?
    A: None. It's a hardware problem.
};

__END__