use lib "lib";
use lib "../JSON-JOM/lib";
use JSON::JOM;
my $jom = JSON::JOM::to_jom({
test => {
foo => [{quux=>1},{quux=>2},{quux=>3}],
bar => [{quux=>4},{quux=>5},{quux=>6}],
},
});
my @nodes = $jom->{test}->findNodes("\$[*][*]");
foreach my $node (@nodes)
{
if ($node->matchesPath("\$[*]['bar'][*]"))
{
print "bar has object with quux=".$node->{quux}."\n";
}
}