| line |
true |
false |
branch |
|
46
|
0 |
1 |
exists $ENV{'PERL_NDEBUG'} ? : |
|
|
0 |
1 |
if (scalar grep({$_ eq ':NDEBUG';} @syms) or exists $ENV{'PERL_NDEBUG'} ? $ENV{'PERL_NDEBUG'} : $ENV{'NDEBUG'}) { } |
|
51
|
0 |
0 |
$_ eq 'DEBUG' ? : |
|
181
|
95 |
107 |
if $err |
|
230
|
1 |
232 |
if (not defined $tp) { } |
|
|
222 |
10 |
elsif (not ref $tp) { } |
|
|
9 |
1 |
elsif (ref $tp eq 'ARRAY') { } |
|
239
|
1 |
8 |
if (@_) { } |
|
|
1 |
7 |
elsif (ref $vals ne 'ARRAY') { } |
|
245
|
1 |
11 |
if (not defined $$tp[$i] or ref $$tp[$i]) { } |
|
258
|
130 |
103 |
unless $err |
|
262
|
92 |
0 |
$errTp == $ErrTpType ? : |
|
|
6 |
92 |
$errTp == $ErrTpDscr ? : |
|
|
5 |
98 |
$errTp == $ErrTpCall ? : |
|
300
|
26 |
268 |
if ($tp =~ /^\@/) { } |
|
|
13 |
255 |
elsif ($tp =~ /^\%/) { } |
|
320
|
2 |
11 |
unless $tp =~ /=>/ |
|
361
|
276 |
97 |
unless $tp =~ /\|/ |
|
367
|
76 |
101 |
unless $err |
|
370
|
3 |
98 |
if $errTp < $ErrTpType |
|
397
|
48 |
123 |
if (grep {$tp eq $_;} @referenceSs) { } |
|
|
25 |
98 |
elsif ($tp =~ /^\^/) { } |
|
|
68 |
30 |
elsif ($tp =~ s/^\\//) { } |
|
402
|
7 |
61 |
unless ref $val eq 'REF' |
|
406
|
31 |
30 |
if ($refTp eq 'SCALAR' or $refTp eq 'REF') { } |
|
|
4 |
26 |
elsif ($refTp eq 'HASH') { } |
|
|
20 |
6 |
elsif ($refTp eq 'ARRAY') { } |
|
|
0 |
6 |
elsif ($refTp eq 'CODE') { } |
|
|
1 |
5 |
elsif ($refTp eq 'GLOB') { } |
|
469
|
0 |
167 |
unless grep {$tp eq $_;} @scalarSs |
|
496
|
15 |
10 |
ref $val eq 'SCALAR' && eval {
do {
$$val->isa($cls)
}
} ? : |
|
517
|
17 |
13 |
ref $val eq 'REF' && UNIVERSAL::isa($$val, $tp) ? : |
|
553
|
167 |
286 |
if (grep {$tp eq $_;} @scalarSs) { } |
|
|
26 |
260 |
elsif (grep {$tp eq $_;} @specialSs) { } |
|
|
86 |
174 |
elsif ($tp =~ /^$userRe$/) { } |
|
|
171 |
3 |
elsif (scalar grep({$tp eq $_;} @referenceSs) or $tp =~ /^\\/ or $tp =~ /^$objectRe$/ or $tp =~ /^\^$objectRe$/) { } |
|
584
|
1 |
326 |
unless defined &$sub |
|
587
|
184 |
142 |
&$sub($val) ? : |