X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FEval%2FWithLexicals.pm;h=ac04ed97cbb9eded0595d3cb89532ad002081055;hb=9661a07cde22f93b638636322a668c07b597c665;hp=9a08c9373541e015abd451d29a70e9bf748ee257;hpb=9aa1478d9dfdcd7d75b5a4017c091b8816076784;p=p5sagit%2FEval-WithLexicals.git diff --git a/lib/Eval/WithLexicals.pm b/lib/Eval/WithLexicals.pm index 9a08c93..ac04ed9 100644 --- a/lib/Eval/WithLexicals.pm +++ b/lib/Eval/WithLexicals.pm @@ -17,7 +17,7 @@ has lexicals => (is => 'rw', default => quote_sub q{ {} }); isa => sub { my ($val) = @_; die "Invalid context type $val - should be list, scalar or void" - unless $valid_contexts{$val}; + unless $valid_contexts{$val}; }, ); } @@ -137,6 +137,9 @@ sub _eval_do { } } +1; +__END__ + =head1 NAME Eval::WithLexicals - pure perl eval with persistent lexical variables @@ -270,5 +273,3 @@ This library is free software and may be distributed under the same terms as perl itself. =cut - -1;