view release on metacpan or  search on metacpan

script/cpanurl  view on Meta::CPAN

1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
    ($JSON ||= __PACKAGE__->new->utf8)->encode(@_);
}
 
 
sub decode_json { # decode
    ($JSON ||= __PACKAGE__->new->utf8)->decode(@_);
}
 
# Obsoleted
 
sub to_json($) {
   Carp::croak ("App::cpanurl::JSON::PP::to_json has been renamed to encode_json.");
}
 
 
sub from_json($) {
   Carp::croak ("App::cpanurl::JSON::PP::from_json has been renamed to decode_json.");
}
 
 
# Methods
 
sub new {
    my $class = shift;
    my $self  = {
        max_depth   => 512,