create explicit on_exhaustion_step attribute

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

diff --git a/lib/DX/SearchState.pm b/lib/DX/SearchState.pm
index 1548f11..a19a416 100644 (file)
--- a/lib/DX/SearchState.pm
+++ b/lib/DX/SearchState.pm
@@ -15,6 +15,8 @@ has alternatives => (is => 'ro', isa => AlternativeList, required => 1);
 
 has is_solution_state => (is => 'ro', required => 1);
 
+has on_exhaustion_step => (is => 'ro', required => 1);
+
 sub next_proposition {
   my ($self, $hyp) = @_;
   $hyp ||= $self->current_hypothesis;
@@ -38,6 +40,7 @@ sub new_for {
         )
       : ( is_solution_state => 1 )
     ),
+    on_exhaustion_step => undef,
   );
 }