X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FInterrupt.pm;h=2b4a478cdbae82fffee6d5022498d2ab594568eb;hp=d7d7d768714d60ed11f3e888c841b21157090da2;hb=796cd7ec80de14e45ca8221d545aceb7b9bc0b71;hpb=54fea9b0966ec7b5f91bc0567a41503c2e4e283b diff --git a/lib/Devel/REPL/Plugin/Interrupt.pm b/lib/Devel/REPL/Plugin/Interrupt.pm index d7d7d76..2b4a478 100644 --- a/lib/Devel/REPL/Plugin/Interrupt.pm +++ b/lib/Devel/REPL/Plugin/Interrupt.pm @@ -1,8 +1,13 @@ +use strict; +use warnings; package Devel::REPL::Plugin::Interrupt; +# ABSTRACT: Traps SIGINT to kill long-running lines + +our $VERSION = '1.003027'; use Devel::REPL::Plugin; use Sys::SigAction qw(set_sig_handler); -use namespace::clean -except => [ 'meta' ]; +use namespace::autoclean; around 'run' => sub { my ($orig, $self) = (shift, shift); @@ -45,9 +50,7 @@ around 'read' => sub { __END__ -=head1 NAME - -Devel::REPL::Plugin::Interrupt - traps SIGINT to kill long-running lines +=pod =head1 DESCRIPTION @@ -60,8 +63,4 @@ can still use Ctrl-D to exit.) Shawn M Moore, C<< >> -=head1 CONTRIBUTORS - -Norbert Buchmuller C<< >> - =cut