File Coverage

blib/lib/App/PAIA/JSON.pm

Criterion	Covered	Total	%
statement	18	23	78.2
branch	1	4	25.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	25	35	71.4

package App::PAIA::JSON;
use strict;
use v5.10;

our $VERSION = '0.29';

use parent 'Exporter';
our @EXPORT = qw(decode_json encode_json);
use JSON::PP qw();

sub decode_json {
    my $json = shift;
    my $data = eval { JSON::PP->new->utf8->relaxed->decode($json); };
    if ($@) {
        my $msg = reverse $@;
        $msg =~ s/.+? ta //sm;
        $msg = "JSON error: " . scalar reverse($msg);
        $msg .= " in " . shift if @_;
        die "$msg\n";
    }
    return $data;
}

sub encode_json {
    JSON::PP->new->utf8->pretty->encode($_[0]);
}

1;
__END__