The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

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;