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

package DX::Step::MarkAsSolution;

use DX::Class;

with 'DX::Role::Step';

sub apply_to {
  my ($self, $ss) = @_;
  $ss->but(
    is_solution_state => 1,
    next_step => DX::Step::Backtrack->new
  );
}

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