diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Eval/Closure.pm | 18 |
1 files changed, 3 insertions, 15 deletions
diff --git a/lib/Eval/Closure.pm b/lib/Eval/Closure.pm index ee93a7a..b03df5b 100644 --- a/lib/Eval/Closure.pm +++ b/lib/Eval/Closure.pm @@ -8,14 +8,11 @@ use Sub::Exporter -setup => { # ABSTRACT: safely and cleanly create closures via string eval use Carp; -use Devel::Hints qw(cop_file cop_line); use overload (); use Memoize; use Scalar::Util qw(reftype); use Try::Tiny; -use constant USE_DEVEL_HINTS => ($] >= 5.010); - =head1 SYNOPSIS use Eval::Closure; @@ -96,23 +93,14 @@ sub eval_closure { $args{source} = _canonicalize_source($args{source}); _validate_env($args{environment} ||= {}); - if (!USE_DEVEL_HINTS) { - $args{source} = _line_directive($args{description}) . $args{source} - if defined $args{description}; - } + $args{source} = _line_directive($args{description}) . $args{source} + if defined $args{description}; my ($code, $e) = _clean_eval_closure(@args{qw(source environment)}); croak("Failed to compile source: $e\n\nsource:\n$args{source}") unless $code; - if (USE_DEVEL_HINTS) { - if (defined $args{description}) { - cop_file($code, $args{description}); - cop_line($code, 1); - } - } - return $code; } @@ -159,7 +147,7 @@ sub _validate_env { sub _line_directive { my ($description) = @_; - return qq{#line 0 "$description"\n}; + return qq{#line 1 "$description"\n}; } sub _clean_eval_closure { |