diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-08-01 15:12:45 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-08-01 15:12:45 -0400 |
commit | 48cc772251f743537652dea6083c6d6c293a508a (patch) | |
tree | dc106d82d3ddde52647c816c0d5987a515851546 | |
parent | a053a1c2c58bddf2c2fec665715341a24913ce61 (diff) | |
download | reply-48cc772251f743537652dea6083c6d6c293a508a.tar.gz reply-48cc772251f743537652dea6083c6d6c293a508a.zip |
new Eval::Closure supports this itself
-rw-r--r-- | dist.ini | 3 | ||||
-rw-r--r-- | lib/Reply/Plugin/Defaults.pm | 8 |
2 files changed, 5 insertions, 6 deletions
@@ -36,6 +36,9 @@ skip = ^MRO::Compat$ skip = ^Proc::InvokeEditor$ skip = ^Win32::Console::ANSI$ +[Prereqs] +Devel::LexAlias = 0 + [Prereqs / RuntimeRecommends] App::Nopaste = 0 B::Keywords = 0 diff --git a/lib/Reply/Plugin/Defaults.pm b/lib/Reply/Plugin/Defaults.pm index 797fcbb..d2acfbc 100644 --- a/lib/Reply/Plugin/Defaults.pm +++ b/lib/Reply/Plugin/Defaults.pm @@ -13,8 +13,7 @@ use warnings; use base 'Reply::Plugin'; -use Devel::LexAlias 'lexalias'; -use Eval::Closure 0.09; +use Eval::Closure 0.11; sub new { my $class = shift; @@ -55,14 +54,11 @@ sub compile { my $code = eval_closure( source => "sub {\n$prefix;\n$line\n}", terse_error => 1, + alias => 1, environment => $env, %args, ); - for my $name (keys %$env) { - lexalias($code, $name, $env->{$name}); - } - return $code; } |