introduce next_step method to rspace

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

diff --git a/lib/DX/Role/Predicate.pm b/lib/DX/Role/Predicate.pm
index 28cb8a1..0612168 100644 (file)
--- a/lib/DX/Role/Predicate.pm
+++ b/lib/DX/Role/Predicate.pm
@@ -6,19 +6,9 @@ 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)
+       ->next_step;
 }
 
 1;