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   my $rspace = $self->_resolution_space_for(@args);
  10   return undef unless @{$rspace->members};
  11   return step(
  12     resolves => $prop,
  13     resolution_space => $rspace
  14   );
  15 }
  16
  17 1;