lib/DX/Role/Predicate.pm

   1 package DX::Role::Predicate;
   2
   3 use List::Util qw(reduce);
   4 use DX::Utils qw(step CONTENTS_OF);
   5 use DX::Role;
   6
   7 sub resolution_step_for {
   8   my ($self, $prop, @args) = @_;
   9   $self->_resolution_space_for(@args)
  10        ->but(proposition => $prop)
  11        ->next_step;
  12 }
  13
  14 1;