/usr/share/perl5/Catmandu/Serializer/json.pm is in libcatmandu-perl 0.9206-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 | package Catmandu::Serializer::json;
=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
use Catmandu::Sane;
use JSON ();
use Moo;
sub serialize {
JSON::encode_json($_[1]);
}
sub deserialize {
JSON::decode_json($_[1]);
}
1;
|