File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/Data/Serializer/JSON.pm
Back
package Data::Serializer::JSON; BEGIN { @Data::Serializer::JSON::ISA = qw(Data::Serializer) } use warnings; use strict; use JSON; use vars qw($VERSION @ISA); $VERSION = '0.04'; sub serialize { return JSON->VERSION < 2 ? JSON->new->objToJson($_[1]) : JSON->new->utf8->encode($_[1]); } sub deserialize { #return JSON->VERSION < 2 ? JSON->new->jsonToObj($_[1]) : JSON->new->decode($_[1]); $_[1] and return JSON->VERSION < 2 ? JSON->new->jsonToObj($_[1]) : JSON->new->utf8->decode($_[1]); } 1; __END__ =head1 NAME Data::Serializer::JSON - Creates bridge between Data::Serializer and JSON =head1 SYNOPSIS use Data::Serializer::JSON; =head1 DESCRIPTION Module is used internally to Data::Serializer =over 4 =item B<serialize> - Wrapper to normalize serializer method name =item B<deserialize> - Wrapper to normalize deserializer method name =back =head1 AUTHOR Naoya Ito <naoya@bloghackers.net> Patch to JSON 2 by Makamaka <makamaka@donzoko.net> =head1 COPYRIGHT This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO perl(1), Data::Serializer(3), JSON(3). =cut
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.04 |
proxy
|
phpinfo
|
Settings