follow alternative rspace entries without backtracking, explicitly resolve

[scpubgit/DX.git] / lib / DX / Proposition.pm

diff --git a/lib/DX/Proposition.pm b/lib/DX/Proposition.pm
index 6c2d133..c32354d 100644 (file)
--- a/lib/DX/Proposition.pm
+++ b/lib/DX/Proposition.pm
@@ -1,5 +1,7 @@
 package DX::Proposition;
 
+use DX::Step::ConsiderProposition;
+
 use DX::Class;
 
 has predicate => (is => 'ro', isa => Str, required => 1);
@@ -32,4 +34,9 @@ sub resolve_for {
   return $predicate->resolution_step_for($self, @args);
 }
 
+sub consider_step {
+  my ($self) = @_;
+  DX::Step::ConsiderProposition->new(proposition => $self);
+}
+
 1;