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

package DX::Step::MarkAsSolution;

use DX::Step::ResumeSearch;
use DX::Class;

with 'DX::Role::Step';

sub apply_to {
  my ($self, $ss) = @_;
  trace solution => [ statement => [ [ symbol => 'solution' ] ] ];
  $ss->but(
    is_solution_state => 1,
    next_step => DX::Step::ResumeSearch->new
  );
}

1;
Commit	Line	Data
1dcbfaf8	1	package DX::Step::MarkAsSolution;
1dcbfaf8	2
ae6f4d03	3	use DX::Step::ResumeSearch;
1dcbfaf8	4	use DX::Class;
	5
	6	with 'DX::Role::Step';
	7
	8	sub apply_to {
	9	my ($self, $ss) = @_;
ae6f4d03	10	trace solution => [ statement => [ [ symbol => 'solution' ] ] ];
1dcbfaf8	11	$ss->but(
1dcbfaf8	12	is_solution_state => 1,
ae6f4d03	13	next_step => DX::Step::ResumeSearch->new
1dcbfaf8	14	);
	15	}
	16
	17	1;