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=3f4636d37455f70025ccddd1a2edc7e133bdcafe;hp=20adfec2d45ab2a1d3a7f35e238478000bb266e9;hb=77327851f87a17466307e8fccdbf2e0d3c2e58dc;hpb=88d6bf36484ce580aa093654129e9b707ccb1c66 diff --git a/lib/Devel/REPL/Plugin/Interrupt.pm b/lib/Devel/REPL/Plugin/Interrupt.pm index 20adfec..3f4636d 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.003030'; 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