diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-11-14 16:47:30 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-11-14 16:47:30 -0600 |
commit | 68cb1ade6177987a8950e4cb3050c1139e802fee (patch) | |
tree | da58353394fc75776ed27ee619ab8b22482fd2e0 /lib | |
parent | fe890fb97648df1253becf110e4e4dfa3c2c8015 (diff) | |
download | eval-closure-68cb1ade6177987a8950e4cb3050c1139e802fee.tar.gz eval-closure-68cb1ade6177987a8950e4cb3050c1139e802fee.zip |
Revert "use Devel::Hints where possible"0.01
This reverts commit fe890fb97648df1253becf110e4e4dfa3c2c8015.
"meh", this is a lot of effort for very little real gain
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 { |