lib/DX/Step/InvokeNextPredicate.pm

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