#!/usr/bin/perl

use warnings;
use strict;
use JSON;

my $json = 
    JSON->new->allow_nonref->allow_unknown->allow_blessed->pretty(1);



# Take the string "1", put it in a hash, encode as JSON and print.
# This prints :
# {
#    "num" : "1"
# }
# The quotes around the number 1 are significant, they mean
# that perl treats the has entry as a string (not surprising).
my $data1;
$data1->{"num"} = "1";
my $body1 = $json->encode($data1);
print $body1;




# Take the number (not string!) 2, put in in a hash,
# encode as JSON and print.
# This prints :
# {
#    "num" : 2
# }
# There are no quotes around the 2, since perl 
# treats it as a number.
# Again, not surprising.
my $data2;
$data2->{"num"} = 2;
my $body2 = $json->encode($data2);
print $body2;





# Take the string "3", put it in a hash, do some math with it,
# then encode as JSON and print.
# This prints :
# {
#    "num" : 3
# }
# So, perl is treating the hash entry, which was a sting, 
# as a number, because using it to do math seems to cause 
# perl to treat it as a number in the JSON.
# Not sure if the hash entry changed type, or had some internal
# flag set on it, but this is surprising, and this behavior 
# seems to be a departure from the past.
# Did something change in the JSON module? 
my $data3;
$data3->{"num"} = "3";
my $addr = $data3->{"num"} + 7;
my $body3 = $json->encode($data3);
print $body3;

exit 0;