From 5b9c3c3f7bab2a1b02faf8fcf0f4e804f621891a Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 29 May 2013 02:28:58 -0500
Subject: use eval::closure instead

---
 lib/App/REPL/Plugin/Defaults.pm | 21 +++++++++++++++++----
 1 file changed, 17 insertions(+), 4 deletions(-)

(limited to 'lib/App/REPL/Plugin/Defaults.pm')

diff --git a/lib/App/REPL/Plugin/Defaults.pm b/lib/App/REPL/Plugin/Defaults.pm
index ecc221b..b226dfd 100644
--- a/lib/App/REPL/Plugin/Defaults.pm
+++ b/lib/App/REPL/Plugin/Defaults.pm
@@ -1,13 +1,20 @@
 package App::REPL::Plugin::Defaults;
 
-# don't pollute with strict and warnings for this module
-sub _eval { eval($_[0]) }
+# XXX Eval::Closure imposes its own hints on things that are eval'ed at the
+# moment, but this may be fixed in the future
+BEGIN {
+    our $default_hints = $^H;
+    our $default_hinthash = { %^H };
+    our $default_warning_bits = ${^WARNING_BITS};
+}
 
 use strict;
 use warnings;
 
 use base 'App::REPL::Plugin';
 
+use Eval::Closure;
+
 sub display_prompt {
     my $self = shift;
 
@@ -20,11 +27,17 @@ sub read_line {
     return scalar <>;
 }
 
+my $PREFIX = "BEGIN { \$^H = \$" . __PACKAGE__ . "::default_hints; \%^H = \%\$" . __PACKAGE__ . "::default_hinthash; \${^WARNING_BITS} = \$" . __PACKAGE__ . "::default_warning_bits }";
+
 sub evaluate {
     my $self = shift;
-    my ($next, $line) = @_;
+    my ($next, $line, %args) = @_;
 
-    return _eval($line);
+    return eval_closure(
+        source      => "$PREFIX; $line",
+        terse_error => 1,
+        %args,
+    );
 }
 
 sub print_error {
-- 
cgit v1.2.3-54-g00ecf