use Carp;
use overload ();
-use Memoize;
use Scalar::Util qw(reftype);
use Try::Tiny;
L<Moose> overrides the description for accessors to something like "accessor
foo at MyClass.pm, line 123").
+=item line
+
+This lets you override the particular line number that appears in backtraces,
+much like the C<description> option. The default is 1.
+
=item terse_error
Normally, this function appends the source code that failed to compile, and
$args{source} = _canonicalize_source($args{source});
_validate_env($args{environment} ||= {});
- $args{source} = _line_directive($args{description}) . $args{source}
- if defined $args{description};
+ $args{source} = _line_directive(@args{qw(line description)})
+ . $args{source}
+ if defined $args{description} && !($^P & 0x10);
my ($code, $e) = _clean_eval_closure(@args{qw(source environment)});
}
sub _line_directive {
- my ($description) = @_;
+ my ($line, $description) = @_;
- return qq{#line 1 "$description"\n};
+ $line = 1 unless defined($line);
+
+ return qq{#line $line "$description"\n};
}
sub _clean_eval_closure {
- my ($source, $captures) = @_;
+ my ($source, $captures) = @_;
+
+ my @capture_keys = sort keys %$captures;
if ($ENV{EVAL_CLOSURE_PRINT_SOURCE}) {
- _dump_source(_make_compiler_source(@_));
+ _dump_source(_make_compiler_source($source, @capture_keys));
}
- my @capture_keys = sort keys %$captures;
my ($compiler, $e) = _make_compiler($source, @capture_keys);
my $code;
if (defined $compiler) {
return ($code, $e);
}
-sub _make_compiler {
- local $@;
- local $SIG{__DIE__};
- my $compiler = eval _make_compiler_source(@_);
- my $e = $@;
- return ($compiler, $e);
+{
+ my %compiler_cache;
+
+ sub _make_compiler {
+ my $source = _make_compiler_source(@_);
+
+ unless (exists $compiler_cache{$source}) {
+ $compiler_cache{$source} = _clean_eval($source);
+ }
+
+ return @{ $compiler_cache{$source} };
+ }
+}
+
+$Eval::Closure::SANDBOX_ID = 0;
+
+sub _clean_eval {
+ $Eval::Closure::SANDBOX_ID++;
+ return eval <<EVAL;
+package Eval::Closure::Sandbox_$Eval::Closure::SANDBOX_ID;
+local \$@;
+local \$SIG{__DIE__};
+my \$compiler = eval \$_[0];
+my \$e = \$@;
+[ \$compiler, \$e ];
+EVAL
}
-memoize('_make_compiler');
sub _make_compiler_source {
my ($source, @capture_keys) = @_;
Perl::Tidy::perltidy(
source => \$source,
destination => \$output,
+ argv => [],
);
}
else {