[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) = @_;
  $self->_resolution_space_for(@args)
       ->but(proposition => $prop)
       ->next_step;
}

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) = @_;
0c1b8f3b	9	$self->_resolution_space_for(@args)
	10	->but(proposition => $prop)
	11	->next_step;
9d759b64	12	}
9d759b64	13
9d759b64	14	1;