[scpubgit/DX.git] / lib / DX / Step / FailRecheck.pm

package DX::Step::FailRecheck;

use DX::Class;

with 'DX::Role::Step';

has resume_search_state => (is => 'ro', isa => SearchState, required => 1);

sub apply_to {
  my ($self, $old_ss) = @_;
  trace recheck => [ statement => [ [ symbol => 'fail_recheck' ] ] ];
  return $self->resume_search_state;
}

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