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;