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

package DX::Step::MarkAsExhaustion;

use DX::Class;

with 'DX::Role::Step';

sub apply_to {
  my ($self, $ss) = @_;
  $ss->but(
    is_solution_state => 0,
    is_exhaustion_state => 1,
    next_step => undef,
  );
}

1;
Commit	Line	Data
ae6f4d03	1	package DX::Step::MarkAsExhaustion;
	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 => 0,
	11	is_exhaustion_state => 1,
	12	next_step => undef,
	13	);
	14	}
	15
	16	1;