lib/DX/Op/Cut.pm

   1 package DX::Op::Cut;
   2
   3 use Moo;
   4
   5 with 'DX::Role::Op';
   6
   7 sub run {
   8   my ($self, $state) = @_;
   9   my $up = $state->return_stack->[-1][1];
  10   die "Nowhere to cut to" unless $up;
  11   $state->but(last_choice => $up->last_choice)->then($self->next);
  12 }
  13
  14 1;