Subject: | more dwimmery on unquoted hash keys please |
use DJSON qw(decode_djson);
use Test::More tests => 1;
my $result = decode_djson(do{$/=<DATA>});
is_deeply($result, +{ qw/foo bar: baz quux:/ })
or note explain $result;
__DATA__
{ foo: bar: baz: quux: }