lib/DX/Step/MarkAsSolution.pm

   1 package DX::Step::MarkAsSolution;
   2
   3 use DX::Class;
   4
   5 with 'DX::Role::Step';
   6
   7 sub apply_to {
   8   my ($self, $ss) = @_;
   9   $ss->but(
  10     is_solution_state => 1,
  11     next_step => DX::Step::Backtrack->new
  12   );
  13 }
  14
  15 1;