File Coverage

blib/lib/MarpaX/ESLIF/ECMA404.pm

Criterion	Covered	Total	%
statement	19	23	82.6
branch	1	4	25.0
condition			n/a
subroutine	7	9	77.7
pod	2	2	100.0
total	29	38	76.3

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

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.014'; # 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 {
    state $JSONStrict = MarpaX::ESLIF::JSON->new($ESLIF, 1);

    return $JSONStrict
}

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

    return $JSONRelaxed
}


1;

__END__