File Coverage

blib/lib/Data/Serializer/JSON/MaybeXS.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition	2	3	66.6
subroutine	8	8	100.0
pod	2	3	66.6
total	33	35	94.2

package Data::Serializer::JSON::MaybeXS;

$Data::Serializer::JSON::MaybeXS::VERSION = '0.02';

BEGIN { @Data::Serializer::JSON::MaybeXS::ISA = qw(Data::Serializer) }

# This code was pretty much stolen and modified from:
# Data::Serializer::JSON.

use warnings;
use strict;
use JSON::MaybeXS qw();
use vars qw(@ISA);

sub json {
    my ($self) = @_;

    $self->{json} ||= JSON::MaybeXS->new(
        %{ $self->{options} },
    );

    return $self->{json};
}

sub serialize {
    my ($self, $data) = @_;
    return $self->json->encode( $data );
}

sub deserialize {
    my ($self, $json) = @_;
    return $self->json->decode( $json );
}

1;
__END__