Commit | Line | Data |
---|---|---|
1dcbfaf8 | 1 | package DX::Step::MarkAsSolution; |
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( |
12 | is_solution_state => 1, | |
ae6f4d03 | 13 | next_step => DX::Step::ResumeSearch->new |
1dcbfaf8 | 14 | ); |
15 | } | |
16 | ||
17 | 1; |