X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FEval-WithLexicals.git;a=blobdiff_plain;f=lib%2FEval%2FWithLexicals.pm;h=89c491cd23876efd1e250b3bbfaa93817f1514ec;hp=79d88f0bb20e3464fd4b8c957dc76ebd8f158951;hb=cb359b88051f6d14ed4f4a7f74233b5915dca0a5;hpb=fdcd01808aba4c3f7200c3231a36fd78d7f444b9 diff --git a/lib/Eval/WithLexicals.pm b/lib/Eval/WithLexicals.pm index 79d88f0..89c491c 100644 --- a/lib/Eval/WithLexicals.pm +++ b/lib/Eval/WithLexicals.pm @@ -4,7 +4,7 @@ use Moo; use Moo::Role (); use Sub::Quote; -our $VERSION = '1.003000'; # 1.3.0 +our $VERSION = '1.003001'; # 1.3.1 $VERSION = eval $VERSION; has lexicals => (is => 'rw', default => quote_sub q{ {} }); @@ -69,7 +69,8 @@ ${to_eval} ${capture_code} sub Eval::WithLexicals::Cage::grab_captures { no warnings 'closure'; no strict 'vars'; - package Eval::WithLexicals::VarScope;!; + package! # hide from PAUSE + .q! Eval::WithLexicals::VarScope;!; # rest is appended by Eval::WithLexicals::Util::capture_list, called # during parsing by the BEGIN block from capture_code. @@ -123,7 +124,8 @@ sub _eval_do { } { - package Eval::WithLexicals::Util; + package # hide from PAUSE + Eval::WithLexicals::Util; use B qw(svref_2object);