lib/DX/Step/InvokeNextPredicate.pm

   1 package DX::Step::InvokeNextPredicate;
   2
   3 use DX::Class;
   4
   5 with 'DX::Role::Step';
   6
   7 sub apply_to {
   8   my ($self, $hyp) = @_;
   9   return (undef, $hyp->head_proposition->resolve_for($hyp->scope));
  10 }
  11
  12 1;