package File::Serialize::Serializer::JSON5;
our $AUTHORITY = 'cpan:YANICK';
#ABSTRACT: JSON5 serializer for File::Serialize
$File::Serialize::Serializer::JSON5::VERSION = '1.5.1';
use strict;
use warn
ializer::JSON::MaybeXS';
sub extensions { qw/ json5 / };
sub required_modules {
qw/ JSON5 JSON::MaybeXS /
}
sub deserialize {
my( $self, $data, $options ) = @_;
use_module('JSON5');
return JSON5::decode_json5($data,$options);
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
File::Serialize::Serializer::JSON5 - JSON5 serializer for File::Serialize
=head1 VERSION
version 1.5.
ge File::Serialize::Serializer::JSON::MaybeXS;
our $AUTHORITY = 'cpan:YANICK';
#ABSTRACT: JSON::MaybeXS serializer for File::Serialize
$File::Serialize::Serializer::JSON::MaybeXS::VERSION = '1.5.1';
u
{ qw/ json js / };
sub serialize {
my( $self, $data, $options ) = @_;
JSON::MaybeXS->new(%$options)->encode( $data);
}
sub deserialize {
my( $self, $data, $options ) = @_;
JSON::Mayb
le::Serialize::Serializer::JSON::MaybeXS - JSON::MaybeXS serializer for File::Serialize
=head1 VERSION
version 1.5.1
=head1 DESCRIPTION
=over
=item B<extensions>
C<json>, C<js>.
=item B<precede
data = { foo => 'bar' };
serialize_file '/path/to/file.json' => $data;
...;
$data_copy = deserialize_file '/path/to/file.json';
=head1 DESCRIPTION
I<File::Serialize> provides a common
L::Tiny>
=item JSON
L<File::Serialize::Serializer::JSON::MaybeXS>
=item TOML
L<File::Serialize::Serializer::TOML>
=item XML
L<File::Serialize::Serializer::XML::Simple>
=item jsony
L<File::Seri
alize::Serializer::JSONY>
=item Markdown
L<File::Serialize::Serializer::Markdown>
=back
=head1 OPTIONS
I<File::Serialize> recognizes a set of options that, if applicable,
will be passed to the se
package File::Serialize::Serializer::JSONY;
our $AUTHORITY = 'cpan:YANICK';
#ABSTRACT: JSONY serializer for File::Serialize
$File::Serialize::Serializer::JSONY::VERSION = '1.5.1';
use strict;
use warn
ze::Serializer';
sub extensions { qw/ jsony / };
sub serialize {
my( $self, $data, $options ) = @_;
serialize_file \my $output, $data, { format => 'json' };
return $output;
}
sub deser
my( $self, $data, $options ) = @_;
JSONY->new->load($data);
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
File::Serialize::Serializer::JSONY - JSONY serializer for File::Serialize
=head1