/usr/share/perl5/JSON/MaybeXS.pm is in libjson-maybexs-perl 1.001000-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 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 | package JSON::MaybeXS;
use strict;
use warnings FATAL => 'all';
use base qw(Exporter);
our $VERSION = '1.001000';
BEGIN {
our $JSON_Class;
our @err;
if (eval { require Cpanel::JSON::XS; 1; }) {
$JSON_Class = 'Cpanel::JSON::XS';
} else {
push @err, "Error loading Cpanel::JSON::XS: $@";
if (eval { require JSON::PP; 1; }) {
$JSON_Class = 'JSON::PP';
} else {
push @err, "Error loading JSON::PP: $@";
}
}
unless ($JSON_Class) {
die join("\n", "Couldn't load a JSON module:", @err);
}
$JSON_Class->import(qw(encode_json decode_json));
}
our @EXPORT = qw(encode_json decode_json JSON);
sub JSON () { our $JSON_Class }
sub new {
shift;
my %args = @_ == 1 ? %{$_[0]} : @_;
my $new = (our $JSON_Class)->new;
$new->$_($args{$_}) for keys %args;
return $new;
}
1;
=head1 NAME
JSON::MaybeXS - use L<Cpanel::JSON::XS> with a fallback to L<JSON::PP>
=head1 SYNOPSIS
use JSON::MaybeXS;
my $data_structure = decode_json($json_input);
my $json_output = encode_json($data_structure);
my $json = JSON->new;
my $json_with_args = JSON::MaybeXS->new(utf8 => 1); # or { utf8 => 1 }
=head1 DESCRIPTION
This module tries to load L<Cpanel::JSON::XS>, and if that fails instead
tries to load L<JSON::PP>. If neither is available, an exception will be
thrown.
It then exports the C<encode_json> and C<decode_json> functions from the
loaded module, along with a C<JSON> constant that returns the class name
for calling C<new> on.
If you're writing fresh code rather than replacing JSON.pm usage, you might
want to pass options as constructor args rather than calling mutators, so
we provide our own C<new> method that supports that.
=head1 EXPORTS
All of C<encode_json>, C<decode_json> and C<JSON> are exported by default.
To import only some symbols, specify them on the C<use> line:
use JSON::MaybeXS qw(encode_json decode_json); # functions only
use JSON::MaybeXS qw(JSON); # JSON constant only
=head2 encode_json
This is the C<encode_json> function provided by the selected implementation
module, and takes a perl data stucture which is serialised to JSON text.
my $json_text = encode_json($data_structure);
=head2 decode_json
This is the C<decode_json> function provided by the selected implementation
module, and takes a string of JSON text to deserialise to a perl data structure.
my $data_structure = decode_json($json_text);
=head2 JSON
The C<JSON> constant returns the selected implementation module's name for
use as a class name - so:
my $json_obj = JSON->new; # returns a Cpanel::JSON::XS or JSON::PP object
and that object can then be used normally:
my $data_structure = $json_obj->decode($json_text); # etc.
=head1 CONSTRUCTOR
=head2 new
With L<JSON::PP> and L<Cpanel::JSON::XS> you are required to call mutators
to set options, i.e.
my $json = $class->new->utf8(1)->pretty(1);
Since this is a trifle irritating and noticeably un-perlish, we also offer:
my $json = JSON::MaybeXS->new(utf8 => 1, pretty => 1);
which works equivalently to the above (and in the usual tradition will accept
a hashref instead of a hash, should you so desire).
=head1 AUTHOR
mst - Matt S. Trout (cpan:MSTROUT) <mst@shadowcat.co.uk>
=head1 CONTRIBUTORS
None yet. Well volunteered? :)
=head1 COPYRIGHT
Copyright (c) 2013 the C<JSON::MaybeXS> L</AUTHOR> and L</CONTRIBUTORS>
as listed above.
=head1 LICENSE
This library is free software and may be distributed under the same terms
as perl itself.
=cut
|