From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

my $struct = q|
given:
default:
ghi: 789
key: test
when:
- m: test
then:
abc: 123
- m: other
then:
def: 456
overlord: 1
|;
my $compiled = YAML::Conditional->new->compile($struct, {
test => "other",
again => "yay"
}, 1);
my $hash = {
overlord => 1,
def => 456,
};
is_deeply($compiled, $hash);
$compiled = YAML::Conditional->new->compile($struct, {
test => "again",
again => "yay"
}, 1);
$hash = {
overlord => 1,
ghi => 789,
};
is_deeply($compiled, $hash);
done_testing;