use Carp 'confess';
-our $VERSION = '0.69_01';
+our $VERSION = '0.71_01';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
confess "No body to initialize, " . __PACKAGE__ . " is an abstract base class";
}
-
+sub _eval_closure {
+ # my ($self, $captures, $sub_body) = @_;
+ my $__captures = $_[1];
+ eval join(
+ "\n",
+ (map {
+ /^([\@\%\$])/
+ or die "capture key should start with \@, \% or \$: $_";
+ q!my !.$_.q! = !.$1.q!{$__captures->{'!.$_.q!'}};!;
+ } keys %$__captures),
+ $_[2]
+ );
+}
1;