| line |
true |
false |
branch |
|
182
|
0 |
530721 |
unless defined $msg |
|
188
|
394188 |
136533 |
$level < 0 ? : |
|
189
|
394188 |
136533 |
if $level < 0 |
|
193
|
0 |
35 |
defined $crec[1] ? : |
|
|
530686 |
35 |
defined $crec[3] ? : |
|
201
|
455122 |
75599 |
if ($n) |
|
205
|
155 |
454967 |
if @pfargs > $n |
|
210
|
693 |
768232 |
unless defined $pfargs[$n] |
|
214
|
155 |
454967 |
if (scalar @pfargs > $np) |
|
227
|
530721 |
0 |
if $level > PDEBUG() |
|
230
|
0 |
0 |
if ref $prefix eq "CODE" |
|
274
|
378300 |
15858 |
if (defined $proto and length $proto) |
|
276
|
375823 |
2477 |
if (exists $subprotos{$caller}) { } |
|
286
|
237 |
4017 |
if ($p =~ /^\\/s) { } |
|
|
3635 |
382 |
elsif ($p =~ /^([\$\@%&\*pb])/s) { } |
|
|
382 |
0 |
elsif ($p =~ /^;/) { } |
|
295
|
0 |
0 |
$t eq '&' ? : |
|
|
32 |
0 |
$t eq '%' ? : |
|
|
131 |
32 |
$t eq '@' ? : |
|
|
3 |
163 |
$t eq 'b' ? : |
|
|
0 |
166 |
$t eq 'p' ? : |
|
|
3469 |
166 |
$t eq '$' ? : |
|
342
|
594021 |
95218 |
if ($tref->[$i] eq 'scalar' and not ref $args[$i]) { } |
|
|
744 |
94474 |
elsif ($tref->[$i] eq 'array') { } |
|
|
575 |
93899 |
elsif ($tref->[$i] eq 'hash') { } |
|
|
0 |
93899 |
elsif ($tref->[$i] eq 'private') { } |
|
|
62 |
93837 |
elsif ($tref->[$i] eq 'bytes') { } |
|
343
|
473274 |
120747 |
if (defined $args[$i]) |
|
345
|
2145 |
471129 |
if $l > 20 |
|
358
|
0 |
0 |
if (defined $args[$i]) |
|
363
|
62 |
0 |
if (defined $args[$i]) |
|
369
|
121876 |
567363 |
unless defined $args[$i] |
|
396
|
180934 |
16090 |
if (@args) |
|
429
|
197113 |
21 |
if (@args) |