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