|
my $json = '{
"thing" : {
"for" : {
"key" : "testing" ,
"keys" : 1,
"if" : {
"m" : "test" ,
"key" : "test" ,
"then" : {
"abc" : 123
}
},
"elsif" : {
"m" : "other" ,
"key" : "test" ,
"then" : {
"def" : 456
}
},
"else" : {
"then" : {
"ghi" : 789
}
}
},
"def" : 123
}
}';
my $compiled = JSON::Conditional->new->compile( $json , {
testing => {
a => { test => "other" },
b => { test => "test" },
c => { test => "other" },
d => { test => "thing" },
}
}, 1);
my $expected = {
thing => {
a => { def => 456 },
b => { abc => 123 },
c => { def => 456 },
d => { ghi => 789 },
def => 123
}
};
is_deeply( $compiled , $expected );
done_testing;
|