[scpubgit/DX.git] / lib / DX / Role / Predicate.pm

package DX::Role::Predicate;

use List::Util qw(reduce);
use DX::Utils qw(step CONTENTS_OF);
use DX::Role;

sub resolution_step_for {
  my ($self, $prop, @args) = @_;
  my $rspace = $self->_resolution_space_for(@args);
  return undef unless @{$rspace->members};
  return step(
    resolves => $prop,
    resolution_space => $rspace
  );
}

1;
Commit	Line	Data
9d759b64	1	package DX::Role::Predicate;
	2
	3	use List::Util qw(reduce);
3e465d5d	4	use DX::Utils qw(step CONTENTS_OF);
9d759b64	5	use DX::Role;
	6
	7	sub resolution_step_for {
ccf0d4fe	8	my ($self, $prop, @args) = @_;
839c0018	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	);
9d759b64	15	}
9d759b64	16
9d759b64	17	1;