File Coverage

blib/lib/JSON5.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch			n/a
condition	1	3	33.3
subroutine	13	13	100.0
pod	3	3	100.0
total	55	57	96.4

package JSON5;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.01";

use Exporter 'import';
our @EXPORT = qw/decode_json5/;

use JSON::PP;
use JSON5::Parser;

my $JSON5; # cache

sub decode_json5 { ($JSON5 ||= JSON5->new->utf8)->decode(@_) }

sub new {
    my $class = shift;
    return bless {
        parser => JSON5::Parser->new,
    } => $class;
}

sub true;
sub false;
*true  = \&JSON::PP::true;
*false = \&JSON::PP::false;

# define accessors
BEGIN {
    for my $attr (qw/utf8 allow_nonref max_size inflate_boolean inflate_nan inflate_null inflate_infinity/) {
        my $attr_accessor = sub {
            my $self = shift;
            $self->{parser}->$attr(@_);
            return $self;
        };
        my $attr_getter = sub {
            my $self = shift;
            my $get_attr = "get_$attr";
            return $self->{parser}->$get_attr;
        };

        no strict qw/refs/;
        *{"$attr"}     = $attr_accessor;
        *{"get_$attr"} = $attr_getter;
    }
}

sub decode {
    my $self = shift;
    return $self->{parser}->parse(@_);
}

1;
__END__