[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) = @_;
  trace exhaustion => [ statement => [ [ symbol => 'exhaustion' ] ] ];
  $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) = @_;
5de5fb5d	9	trace exhaustion => [ statement => [ [ symbol => 'exhaustion' ] ] ];
ae6f4d03	10	$ss->but(
	11	is_solution_state => 0,
	12	is_exhaustion_state => 1,
	13	next_step => undef,
	14	);
	15	}
	16
	17	1;