lib/App/REPL/Plugin/Interrupt.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

package App::REPL::Plugin::Interrupt;
use strict;
use warnings;

use base 'App::REPL::Plugin';

sub evaluate {
    my $self = shift;
    my ($next, $line, %args) = @_;

    local $SIG{INT} = sub { die "Interrupted" };
    $next->($line, %args);
}

1;