use
Test::More;
use
JSON::Conditional;
my
$json
= '{
"given"
: {
"key"
:
"test"
,
"when"
: {
"test"
: {
"abc"
: 123
},
"other"
: {
"def"
: 456
},
"default"
: {
"ghi"
: 789
}
}
},
"overlord"
: 1
}';
my
$compiled
= JSON::Conditional->new->compile(
$json
, {
test
=>
"other"
,
again
=>
"yay"
}, 1);
my
$hash
= {
overlord
=> 1,
def
=> 456,
};
is_deeply(
$compiled
,
$hash
);
my
$compiled
= JSON::Conditional->new->compile(
$json
, {
test
=>
"again"
,
again
=>
"yay"
}, 1);
my
$hash
= {
overlord
=> 1,
ghi
=> 789,
};
is_deeply(
$compiled
,
$hash
);
done_testing;