use Carp 'confess';
-our $VERSION = '0.77';
+our $VERSION = '0.78';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
sub _eval_closure {
# my ($self, $captures, $sub_body) = @_;
my $__captures = $_[1];
- eval join(
+
+ local $@;
+ my $code = join(
"\n",
(
map {
),
$_[2]
);
+ my $sub = eval $code;
+
+ die "$@\n$code" if $@;
+
+ return $sub;
}
sub _add_line_directive {