lib/DX/Step/FailRecheck.pm

   1 package DX::Step::FailRecheck;
   2
   3 use DX::Class;
   4
   5 with 'DX::Role::Step';
   6
   7 has resume_search_state => (is => 'ro', isa => SearchState, required => 1);
   8
   9 sub apply_to {
  10   my ($self, $old_ss) = @_;
  11   trace recheck => [ statement => [ [ symbol => 'fail_recheck' ] ] ];
  12   trace recheck => [ 'leave_block' ];
  13   return $self->resume_search_state;
  14 }
  15
  16 1;