2 use warnings FATAL => 'all';
5 unless ( eval { require JSON; 1 } ) {
6 plan skip_all => 'No JSON';
9 my $data = JSON->new->decode('{"foo": true, "bar": false, "baz": 1}');
12 JSON::is_bool($data->{foo}),
13 'JSON.pm: true decodes to a bool',
16 JSON::is_bool($data->{bar}),
17 'JSON.pm:: false decodes to a bool',
20 !JSON::is_bool($data->{baz}),
21 'JSON.pm: int does not decode to a bool',