view release on metacpan or  search on metacpan

script/platform-info  view on Meta::CPAN

#    };
#
#    $self->{PROPS}[P_ALLOW_NONREF] = 1;
#
#    bless $self, $class;
#}
#
#
#sub encode {
#    return $_[0]->PP_encode_json($_[1]);
#}
#
#
#sub decode {
#    return $_[0]->PP_decode_json($_[1], 0x00000000);
#}
#
#
#sub decode_prefix {
#    return $_[0]->PP_decode_json($_[1], 0x00000001);
#}
#
#
#
#
#
#sub pretty {
#    my ($self, $v) = @_;
#    my $enable = defined $v ? $v : 1;
#
#    if ($enable) { 
#        $self->indent(1)->space_before(1)->space_after(1);
#    }
#    else {
#        $self->indent(0)->space_before(0)->space_after(0);
#    }
#
#    $self;
#}
#
#
#sub max_depth {
#    my $max  = defined $_[1] ? $_[1] : 0x80000000;
#    $_[0]->{max_depth} = $max;
#    $_[0];
#}
#
#
#sub get_max_depth { $_[0]->{max_depth}; }
#
#
#sub max_size {
#    my $max  = defined $_[1] ? $_[1] : 0;
#    $_[0]->{max_size} = $max;
#    $_[0];
#}
#
#
#sub get_max_size { $_[0]->{max_size}; }
#
#sub boolean_values {
#    my $self = shift;
#    if (@_) {
#        my ($false, $true) = @_;
#        $self->{false} = $false;
#        $self->{true} = $true;
#        return ($false, $true);
#    } else {
#        delete $self->{false};
#        delete $self->{true};
#        return;
#    }
#}
#
#sub get_boolean_values {
#    my $self = shift;
#    if (exists $self->{true} and exists $self->{false}) {
#        return @$self{qw/false true/};
#    }
#    return;
#}
#
#sub filter_json_object {
#    if (defined $_[1] and ref $_[1] eq 'CODE') {
#        $_[0]->{cb_object} = $_[1];
#    } else {
#        delete $_[0]->{cb_object};
#    }
#    $_[0]->{F_HOOK} = ($_[0]->{cb_object} or $_[0]->{cb_sk_object}) ? 1 : 0;
#    $_[0];
#}
#
#sub filter_json_single_key_object {
#    if (@_ == 1 or @_ > 3) {
#        Carp::croak("Usage: JSON::PP::filter_json_single_key_object(self, key, callback = undef)");
#    }
#    if (defined $_[2] and ref $_[2] eq 'CODE') {
#        $_[0]->{cb_sk_object}->{$_[1]} = $_[2];
#    } else {
#        delete $_[0]->{cb_sk_object}->{$_[1]};
#        delete $_[0]->{cb_sk_object} unless %{$_[0]->{cb_sk_object} || {}};
#    }
#    $_[0]->{F_HOOK} = ($_[0]->{cb_object} or $_[0]->{cb_sk_object}) ? 1 : 0;
#    $_[0];
#}
#
#sub indent_length {
#    if (!defined $_[1] or $_[1] > 15 or $_[1] < 0) {
#        Carp::carp "The acceptable range of indent_length() is 0 to 15.";
#    }
#    else {
#        $_[0]->{indent_length} = $_[1];
#    }
#    $_[0];
#}
#
#sub get_indent_length {
#    $_[0]->{indent_length};
#}
#
#sub sort_by {
#    $_[0]->{sort_by} = defined $_[1] ? $_[1] : 1;
#    $_[0];
#}
#
#sub allow_bigint {
#    Carp::carp("allow_bigint() is obsoleted. use allow_bignum() instead.");
#    $_[0]->allow_bignum;
#}
#
#
#
#
#{ 
#