view release on metacpan or  search on metacpan

script/platform-info  view on Meta::CPAN

#
#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];