| line |
true |
false |
branch |
|
16
|
10 |
100 |
if $f eq 'args' |
|
67
|
12 |
19 |
if ($first) { } |
|
71
|
1 |
11 |
defined $self->{'message'} ? : |
|
77
|
0 |
19 |
if (my $eval = $self->evaltext) { } |
|
|
0 |
19 |
elsif ($sub eq '(eval)') { } |
|
78
|
0 |
0 |
if ($self->is_require) { } |
|
96
|
13 |
6 |
if (my(@a) = $self->args) |
|
100
|
2 |
18 |
unless (defined $_) |
|
107
|
0 |
18 |
if ref $_ |
|
121
|
1 |
17 |
exists $p->{'max_arg_length'} ? : |
|
123
|
2 |
16 |
if ($max_arg_length and length $_ > $max_arg_length) |
|
132
|
13 |
5 |
unless /^-?[\d.]+$/ |
|
140
|
0 |
18 |
if (my $e = $@) |
|
141
|
0 |
0 |
$e =~ /malformed utf-8/i ? : |
|
152
|
2 |
29 |
$self->{'indent'} && !$first ? : |