server => [ 'S' ] => [ member_of => S => [ value => 'servers' ] ]
);
-my $s = $solver->query([ 'S' ], [ call => server => 'S' ]);
+my $s = $solver->query([ server => 'S' ]);
-is_deeply([ map $_->{S}{name}, $s->results ], [ sort @servers ]);
+is_deeply([ map $_->value_for('S')->{name}, $s->results ], [ sort @servers ]);
$solver->add_rule(
shell => [ 'S' ] => [ member_of => S => [ value => 'shells' ] ])
);
$s = $solver->query(
- [ qw(Shell Srv) ],
[ shell => 'Shell' ],
[ name => 'Shell', [ value => 'bash' ] ],
[ server => 'Srv' ],
);
is_deeply(
- [ sort map $_->{Srv}{name}, $s->results ],
+ [ sort map $_->value_for('Srv')->{name}, $s->results ],
[ qw(joe.example.com kitty.scsys.co.uk) ]
);