File Coverage

blib/lib/Test2/Harness/Util/JSON.pm

Criterion	Covered	Total	%
statement	24	27	88.8
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	4	0.0
total	34	43	79.0

package Test2::Harness::Util::JSON;
use strict;
use warnings;

our $VERSION = '0.001007';

BEGIN {
    local $@ = undef;
    my $ok = eval {
        require JSON::MaybeXS;
        JSON::MaybeXS->import('JSON');
        1;
    };

    unless($ok) {
        require JSON::PP;
        *JSON = sub() { 'JSON::PP' };
    }
}

our @EXPORT = qw{JSON encode_json decode_json encode_pretty_json encode_canon_json};
BEGIN { require Exporter; our @ISA = qw(Exporter) }

my $json = JSON->new->utf8(1)->convert_blessed(1)->allow_nonref(1);
my $canon = JSON->new->utf8(1)->canonical(1)->convert_blessed(1)->allow_nonref(1);
my $pretty = JSON->new->utf8(1)->pretty(1)->canonical(1)->convert_blessed(1)->allow_nonref(1);

sub encode_json { $json->encode(@_) }
sub encode_canon_json { $canon->encode(@_) }
sub encode_pretty_json { $pretty->encode(@_) }

sub decode_json {
    my ($input) = @_;
    my $data;
    my $ok = eval { $data = $json->decode($input); 1 };
    my $error = $@;
    return $data if $ok;
    die "JSON decode error: $error$input\n";
}

1;

__END__