summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2011-01-26 22:53:51 -0600
committerJesse Luehrs <doy@tozt.net>2011-01-26 22:53:51 -0600
commitc8d4a65f440c760f740055fb38b728c67ba26245 (patch)
tree8d3242a98ca1848c8a06642f0e9e19c447d1f53f
parent75e6988b5ef9fd1dd384d0bf3a74e50178683d17 (diff)
downloadeval-closure-c8d4a65f440c760f740055fb38b728c67ba26245.tar.gz
eval-closure-c8d4a65f440c760f740055fb38b728c67ba26245.zip
some cleanups
-rw-r--r--lib/Eval/Closure.pm7
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};
}