/usr/share/perl5/Catmandu/Serializer/json.pm is in libcatmandu-perl 1.0700-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | package Catmandu::Serializer::json;
use Catmandu::Sane;
our $VERSION = '1.07';
use Cpanel::JSON::XS ();
use Moo;
use namespace::clean;
sub serialize {
Cpanel::JSON::XS::encode_json($_[1]);
}
sub deserialize {
Cpanel::JSON::XS::decode_json($_[1]);
}
1;
__END__
=pod
=head1 NAME
Catmandu::Serializer - A (de)serializer from and to json
=head1 SYNOPSIS
package MyPackage;
use Moo;
with 'Catmandu::Serializer';
# You have now serialize and deserialize methods available
package main;
my $obj = MyPackage->new;
my $obj = MyPackage->new(serializer => 'json');
$obj->serialize( { foo => 'bar' } ); # JSON
$obj->deserialize( "{'foo':'bar'}" ); # Perl
=head1 SEE ALSO
L<Catmandu::Serializer>
=cut
|