lib/DX/Step/MarkAsExhaustion.pm

   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) = @_;
   9   $ss->but(
  10     is_solution_state => 0,
  11     is_exhaustion_state => 1,
  12     next_step => undef,
  13   );
  14 }
  15
  16 1;