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

package DX::Role::Predicate;

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;
9d759b64	2
9d759b64	3	use DX::Role;
	4
	5	sub resolution_step_for {
ccf0d4fe	6	my ($self, $prop, @args) = @_;
0c1b8f3b	7	$self->_resolution_space_for(@args)
	8	->but(proposition => $prop)
	9	->next_step;
9d759b64	10	}
9d759b64	11
9d759b64	12	1;