use warnings; use strict; use Data::Dumper; use JSON; my $json = JSON->new; for my $up (0, 1) { print "useperl: $up\n"; $Data::Dumper::Useperl = $up; my $data = { foo => 'bar', qux => 0.42 }; printf "before: '%s'\n", $json->encode ($data); Dumper $data; #Data::Dumper->Dump ([$data], ['data']); printf "after: '%s'\n", $json->encode ($data); } __END__ useperl: 0 before: '{"qux":0.42,"foo":"bar"}' after: '{"qux":"0.42","foo":"bar"}' useperl: 1 before: '{"qux":0.42,"foo":"bar"}' after: '{"qux":0.42,"foo":"bar"}' #### use JSON; my $json = JSON->new; for my $up (0, 1) { print "useperl: $up\n"; $Data::Dumper::Useperl = $up; my $data = { foo => 'bar', qux => 42 }; printf "before: '%s'\n", $json->encode ($data); Dumper $data; #Data::Dumper->Dump ([$data], ['data']); printf "after: '%s'\n", $json->encode ($data); } __END__ useperl: 0 before: '{"qux":42,"foo":"bar"}' after: '{"qux":42,"foo":"bar"}' useperl: 1 before: '{"qux":42,"foo":"bar"}' after: '{"qux":42,"foo":"bar"}'