projects
/
scpubgit/DX.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
37d59f5c9f51fc7a758de251b9a4a87f7e509628
[scpubgit/DX.git]
/
lib
/
DX
/
Step
/
MarkAsSolution.pm
1
package DX::Step::MarkAsSolution;
2
3
use DX::Step::ResumeSearch;
4
use DX::Class;
5
6
with 'DX::Role::Step';
7
8
sub apply_to {
9
my ($self, $ss) = @_;
10
trace solution => [ statement => [ [ symbol => 'solution' ] ] ];
11
$ss->but(
12
is_solution_state => 1,
13
next_step => DX::Step::ResumeSearch->new
14
);
15
}
16
17
1;