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, $ss) = @_;
  11   my $hyp = $ss->current_hypothesis;
  12   return (undef, $self->proposition->resolve_for($hyp->scope));
  13 }
  14
  15 1;