Yet Another CPAN Grep

data-recursive-encode ( T/TO/TOKUHIROM/data-recursive-encode-0.05.tar.gz, TOKUHIROM, 2014; MetaCPAN )

data-recursive-encode/lib/Data/Recursive/Encode.pm ( view source; MetaCPAN )

S_NUMERIC_VALUE

do not process numeric value.

    use JSON;
    use Data::Recursive::Encode;

    my $data = { int => 1 };

    is encode_json( Data::Recursive::Encode->encode_utf8($data) ); #=> '{"

int":"1"}'

    local $Data::Recursive::Encode::DO_NOT_PROCESS_NUMERIC_VALUE = 1;
    is encode_json( Data::Recursive::Encode->encode_utf8($data) ); #=> '{"int":1}'

=back

=head1 METHODS

=over 4

=i