X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FEval-WithLexicals.git;a=blobdiff_plain;f=lib%2FEval%2FWithLexicals.pm;fp=lib%2FEval%2FWithLexicals.pm;h=1dd6edb1441090f375f91c8214ec9ab8cc3c8c03;hp=79d88f0bb20e3464fd4b8c957dc76ebd8f158951;hb=e8f160819f87f43990046b2e95f521b93ed6feb1;hpb=794daabd490b2438a46e9362a4339c6969b9bf40 diff --git a/lib/Eval/WithLexicals.pm b/lib/Eval/WithLexicals.pm index 79d88f0..1dd6edb 100644 --- a/lib/Eval/WithLexicals.pm +++ b/lib/Eval/WithLexicals.pm @@ -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);