view release on metacpan or  search on metacpan

script/cpanurl  view on Meta::CPAN

    ($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,