Yet Another CPAN Grep

Data-Recursive-Encode ( T/TO/TOKUHIROM/Data-Recursive-Encode-0.07.tar.gz, TOKUHIROM, 2019; 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