| line |
true |
false |
branch |
|
90
|
0 |
0 |
if $_[0] eq 'verbose' |
|
103
|
11 |
7 |
if ($in_carp >= $MaxRecursion) |
|
110
|
2 |
5 |
if ($@) |
|
138
|
0 |
25 |
if ($error =~ /\n$/) { } |
|
143
|
0 |
25 |
if (defined $eval) { } |
|
|
4 |
21 |
elsif ($sub eq '(eval)') { } |
|
144
|
0 |
0 |
if ($require) { } |
|
148
|
0 |
0 |
if ($MaxEvalLen and length $eval > $MaxEvalLen) |
|
159
|
21 |
4 |
if ($hargs) |
|
163
|
0 |
21 |
if ($MaxArgNums and @a > $MaxArgNums) |
|
171
|
4 |
32 |
unless defined $_ |
|
172
|
14 |
18 |
if (ref $_) { } |
|
180
|
0 |
18 |
if $MaxArgLen and $MaxArgLen < length $_ |
|
184
|
18 |
0 |
unless /^-?[\d.]+$/ |
|
189
|
14 |
22 |
if ($@) |
|
198
|
18 |
7 |
if $error eq 'called' |
|
221
|
0 |
2 |
if $Verbose |
|
222
|
0 |
2 |
if ($in_carp >= $MaxRecursion) |
|
229
|
2 |
0 |
if ($@) |
|
249
|
0 |
2 |
if defined @{"${prevpack}::ISA";} |
|
257
|
0 |
0 |
if (defined @{$pack . '::ISA';}) |
|
262
|
0 |
0 |
if exists $i{$prevpack} or exists $isa{$pack} |
|
271
|
0 |
0 |
if exists $isa{$pack} |
|
278
|
0 |
0 |
if ($extra-- > 0) { } |
|
281
|
0 |
0 |
if defined @{$pack . '::ISA';} |