[Bast-commits] r3850 - trunk/Devel-REPL/lib/Devel/REPL/Plugin

[Sartak at dev.catalyst.perl.org]

Author: Sartak
Date: 2007-11-02 02:30:39 +0000 (Fri, 02 Nov 2007)
New Revision: 3850

Added:
   trunk/Devel-REPL/lib/Devel/REPL/Plugin/Interrupt.pm
Log:
Add an Interrupt plugin for better handling of ^C


Added: trunk/Devel-REPL/lib/Devel/REPL/Plugin/Interrupt.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL/Plugin/Interrupt.pm	                        (rev 0)
+++ trunk/Devel-REPL/lib/Devel/REPL/Plugin/Interrupt.pm	2007-11-02 02:30:39 UTC (rev 3850)
@@ -0,0 +1,18 @@
+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;
+