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=ac04ed97cbb9eded0595d3cb89532ad002081055;hb=cb359b88051f6d14ed4f4a7f74233b5915dca0a5;hpb=3092edd9bbbb87a896accb18efcef8524de40926 diff --git a/lib/Eval/WithLexicals.pm b/lib/Eval/WithLexicals.pm index ac04ed9..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.002000'; # 1.2.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); @@ -262,6 +264,8 @@ Matt S. Trout David Leadbeater +haarg - Graham Knop (cpan:HAARG) + =head1 COPYRIGHT Copyright (c) 2010 the Eval::WithLexicals L and L