File Coverage

blib/lib/MarpaX/ESLIF/ECMA404.pm

Criterion	Covered	Total	%
statement	16	20	80.0
branch	1	4	25.0
condition			n/a
subroutine	6	8	75.0
pod	2	2	100.0
total	25	34	73.5

use strict;
use warnings FATAL => 'all';

package MarpaX::ESLIF::ECMA404;
use Log::Any qw/$log/;
use MarpaX::ESLIF 3.0.32;

my $ESLIF = MarpaX::ESLIF->new($log);

# ABSTRACT: JSON Data Interchange Format following ECMA-404 specification

our $VERSION = '0.013'; # VERSION

our $AUTHORITY = 'cpan:JDDPAUSE'; # AUTHORITY



sub decode {
    my ($self, $input, %options) = @_;

    return $options{strict} ? _JSONStrict()->decode($input, %options) : _JSONRelaxed()->decode($input, %options)
}


sub encode {
    my ($self, $input, %options) = @_;

    return $options{strict} ? _JSONStrict()->encode($input, %options) : _JSONRelaxed()->encode($input, %options)
}

# -------------
# Private stubs
# -------------
sub _JSONStrict {
    CORE::state $JSONStrict = MarpaX::ESLIF::JSON->new($ESLIF, 1);

    return $JSONStrict
}

sub _JSONRelaxed {
    CORE::state $JSONRelaxed = MarpaX::ESLIF::JSON->new($ESLIF, 0);

    return $JSONRelaxed
}


1;

__END__