[p5sagit/Devel-REPL.git] / lib / Devel / REPL / Plugin / Interrupt.pm

package Devel::REPL::Plugin::Interrupt;

use Moose::Role;
use namespace::clean -except => [ 'meta' ];

around 'eval' => sub {
    my $orig = shift;
    my ($self, $line) = @_;

    local $SIG{INT} = sub {
        die "Interrupted.\n";
    };

    return $self->$orig($line);
};

1;

__END__

=head1 NAME

Devel::REPL::Plugin::Interrupt - traps SIGINT to kill long-running lines

=cut
Commit	Line	Data
54d0f9a0	1	package Devel::REPL::Plugin::Interrupt;
	2
	3	use Moose::Role;
	4	use namespace::clean -except => [ 'meta' ];
	5
	6	around 'eval' => sub {
	7	my $orig = shift;
	8	my ($self, $line) = @_;
	9
	10	local $SIG{INT} = sub {
	11	die "Interrupted.\n";
	12	};
	13
	14	return $self->$orig($line);
	15	};
	16
	17	1;
	18
cfd1094b	19	__END__
	20
	21	=head1 NAME
	22
	23	Devel::REPL::Plugin::Interrupt - traps SIGINT to kill long-running lines
	24
	25	=cut
	26