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; |