| line |
true |
false |
branch |
|
40
|
4 |
0 |
unless scalar @IGNORE_LIST |
|
53
|
43 |
97 |
$ref eq 'REF' ? : |
|
56
|
0 |
140 |
if not $direction or $direction ne 'input' and $direction ne 'output' |
|
60
|
96 |
44 |
if ($ref eq 'SCALAR') { } |
|
|
0 |
44 |
elsif ($ref eq 'ARRAY') { } |
|
|
1 |
43 |
elsif ($ref eq 'HASH') { } |
|
|
43 |
0 |
elsif ($ref eq 'REF') { } |
|
63
|
96 |
0 |
unless $skip_latin |
|
66
|
46 |
50 |
if ($direction eq 'output') { } |
|
67
|
46 |
0 |
if defined ${$obj;} and utf8::is_utf8(${$obj;}) |
|
70
|
2 |
48 |
if defined ${$obj;} and not utf8::is_utf8(${$obj;}) |
|
88
|
12 |
31 |
if ($obj_ref eq 'ARRAY') { } |
|
|
29 |
2 |
elsif ($obj_ref eq 'HASH') { } |
|
100
|
1 |
1 |
unless first sub {
$_ eq $obj_ref;
}
, @IGNORE_LIST |
|
108
|
0 |
0 |
unless first sub {
$_ eq $ref;
}
, @IGNORE_LIST |
|
111
|
138 |
1 |
$ref eq 'REF' || $ref eq 'SCALAR' ? : |