Data::Serializer::JSON::XS;
BEGIN { @Data::Serializer::JSON::XS::ISA = qw/Data::Serializer/ }
use warnings;
use strict;
use JSON::XS;
use vars qw/@ISA/;
sub serialize { return JSON::XS->new
->al
cii
->utf8
->relaxed
->pretty( 0 )
->encode( $_[1] );
}
sub deserialize { return JSON::XS->new
->allow_blessed
->allow_nonref
->convert_blessed
->ascii
->utf8
__
=pod
=encoding UTF-8
=head1 NAME
Data::Serializer::JSON::XS
=head1 VERSION
version 0.01
=head1 SYNOPSIS
use Data::Serializer::JSON::XS;
=head1 DESCRIPTION
A serializer using the Data::S