diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-01-26 22:53:51 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-01-26 22:53:51 -0600 |
commit | c8d4a65f440c760f740055fb38b728c67ba26245 (patch) | |
tree | 8d3242a98ca1848c8a06642f0e9e19c447d1f53f | |
parent | 75e6988b5ef9fd1dd384d0bf3a74e50178683d17 (diff) | |
download | eval-closure-c8d4a65f440c760f740055fb38b728c67ba26245.tar.gz eval-closure-c8d4a65f440c760f740055fb38b728c67ba26245.zip |
some cleanups
-rw-r--r-- | lib/Eval/Closure.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Eval/Closure.pm b/lib/Eval/Closure.pm index 0bb553e..01e1411 100644 --- a/lib/Eval/Closure.pm +++ b/lib/Eval/Closure.pm @@ -86,7 +86,7 @@ foo at MyClass.pm, line 123"). =item line This lets you override the particular line number that appears in backtraces, -much like the description option. The default is "1". +much like the C<description> option. The default is 1. =item terse_error @@ -104,7 +104,8 @@ sub eval_closure { $args{source} = _canonicalize_source($args{source}); _validate_env($args{environment} ||= {}); - $args{source} = _line_directive(@args{qw(line description)}) . $args{source} + $args{source} = _line_directive(@args{qw(line description)}) + . $args{source} if defined $args{description}; my ($code, $e) = _clean_eval_closure(@args{qw(source environment)}); @@ -164,7 +165,7 @@ sub _validate_env { sub _line_directive { my ($line, $description) = @_; - $line = 1 if !defined($line); + $line = 1 unless defined($line); return qq{#line $line "$description"\n}; } |