use strict;
use warnings;
use JSON::PP;

use Test::More tests => 2;

my $in   = '{ "z": true, "y": false }';
my $out  = decode_json ($in);
my $z    = $out->{z};
my $y    = $out->{y};

is ($z, JSON::PP::true,  "z is true"  );
is ($y, JSON::PP::false, "y is false" );