view release on metacpan or  search on metacpan

script/platform-info  view on Meta::CPAN

#            push @res, ref($v) ? $self->object_to_json($v) : $self->value_to_json($v);
#        }
#
#        --$depth;
#        $self->_down_indent() if ($indent);
#
#        return '[]' unless @res;
#        return '[' . $pre . join( ",$pre", @res ) . $post . ']';
#    }
#
#    sub _looks_like_number {
#        my $value = shift;
#        if (USE_B) {
#            my $b_obj = B::svref_2object(\$value);
#            my $flags = $b_obj->FLAGS;
#            return 1 if $flags & ( B::SVp_IOK() | B::SVp_NOK() ) and !( $flags & B::SVp_POK() );
#            return;
#        } else {
#            no warnings 'numeric';
#            return if utf8::is_utf8($value);
#            return unless length((my $dummy = "") & $value);

script/platform-info  view on Meta::CPAN

#    }
#
#    sub value_to_json {
#        my ($self, $value) = @_;
#
#        return 'null' if(!defined $value);
#
#        my $type = ref($value);
#
#        if (!$type) {
#            if (_looks_like_number($value)) {
#                return $value;
#            }
#            return $self->string_to_json($value);
#        }
#        elsif( blessed($value) and  $value->isa('JSON::PP::Boolean') ){
#            return $$value == 1 ? 'true' : 'false';
#        }
#        else {
#            if ((overload::StrVal($value) =~ /=(\w+)/)[0]) {
#                return $self->value_to_json("$value");