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

package DX::Role::Predicate;

use Object::Tap;
use DX::Role;

sub resolution_step_for {
  my ($self, $prop, @args) = @_;
  $self->_resolution_space_for(@args)
       ->but(proposition => $prop)
       ->$_tap(sub { trace rspace => $_[0] })
       ->next_step;
}

1;
Commit	Line	Data
9d759b64	1	package DX::Role::Predicate;
9d759b64	2
c99dbb05	3	use Object::Tap;
9d759b64	4	use DX::Role;
	5
	6	sub resolution_step_for {
ccf0d4fe	7	my ($self, $prop, @args) = @_;
0c1b8f3b	8	$self->_resolution_space_for(@args)
0c1b8f3b	9	->but(proposition => $prop)
c99dbb05	10	->$_tap(sub { trace rspace => $_[0] })
0c1b8f3b	11	->next_step;
9d759b64	12	}
9d759b64	13
9d759b64	14	1;