${setup}
sub Eval::WithLexicals::Cage::current_line {
package ${package};
+#line 1 "(eval)"
${to_eval}
;sub Eval::WithLexicals::Cage::pad_capture { }
BEGIN { Eval::WithLexicals::Util::capture_list() }
sub capture_list {
my $pad_capture = \&Eval::WithLexicals::Cage::pad_capture;
- my @names = map $_->PV, grep $_->isa('B::PV'),
+ my @names = grep $_ ne '&', map $_->PV, grep $_->isa('B::PV'),
svref_2object($pad_capture)->OUTSIDE->PADLIST->ARRAYelt(0)->ARRAY;
$Eval::WithLexicals::current_code .=
'+{ '.join(', ', map "'$_' => \\$_", @names).' };'
=head1 CONTRIBUTORS
-None required yet. Maybe this module is perfect (hahahahaha ...).
+David Leadbeater <dgl@dgl.cx>
=head1 COPYRIGHT