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   trace exhaustion => [ statement => [ [ symbol => 'exhaustion' ] ] ];
  10   $ss->but(
  11     is_solution_state => 0,
  12     is_exhaustion_state => 1,
  13     next_step => undef,
  14   );
  15 }
  16
  17 1;