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];
-
- local $@;
- my $code = join(
+ eval join(
"\n",
(
map {
),
$_[2]
);
- my $sub = eval $code;
-
- die "$@\n$code" if $@;
-
- return $sub;
}
sub _add_line_directive {
=head1 COPYRIGHT AND LICENSE
-Copyright 2006-2008 by Infinity Interactive, Inc.
+Copyright 2006-2009 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>