Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
use Data::Dumper;
...
useperl: 1
before: '{"qux":0.42,"foo":"bar"}'
after:  '{"qux":0.42,"foo":"bar"}'
  2. or download this
    use JSON;
my $json = JSON->new;
for my $up (0, 1) {
...
useperl: 1
before: '{"qux":42,"foo":"bar"}'
after:  '{"qux":42,"foo":"bar"}'