package DX::Role::Predicate;
-use List::Util qw(reduce);
-use DX::Utils qw(step CONTENTS_OF);
+use Object::Tap;
use DX::Role;
sub resolution_step_for {
my ($self, $prop, @args) = @_;
- my ($last, @rest) = reverse $self->_possible_resolution_list(@args);
- return undef unless $last;
- my $targ = $last->but(resolves => $prop);
- $targ = $_->but(
- alternative_step => $targ,
- resolves => $prop
- ) for @rest;
- return $targ;
-}
-
-sub selection_depends_on {
- my ($self, @args) = @_;
- \@args;
+ $self->_resolution_space_for(@args)
+ ->but(proposition => $prop)
+ ->$_tap(sub { trace rspace => $_[0] })
+ ->next_step;
}
1;