| line |
true |
false |
branch |
|
87
|
10 |
94 |
unless defined $node |
|
89
|
35 |
59 |
unless my($realpack, $realtype, $id) = overload::StrVal($node) =~ /\A(?:(.+)\=)?(HASH|ARRAY|GLOB|SCALAR|REF)\((0x[[:xdigit:]]+)\)\z/ |
|
93
|
4 |
4 |
$realtype eq 'REF' ? : |
|
|
11 |
8 |
$realtype eq 'SCALAR' ? : |
|
|
23 |
19 |
$realtype eq 'ARRAY' ? : |
|
|
17 |
42 |
$realtype eq 'HASH' ? : |
|
|
3 |
56 |
if (my $tied = $realtype eq 'HASH' ? tied %{$node;} : ($realtype eq 'ARRAY' ? tied @{$node;} : ($realtype eq 'SCALAR' ? tied ${$node;} : ($realtype eq 'REF' ? tied ${$node;} : undef)))) |
|
103
|
1 |
55 |
if $seen{join $;, $realpack, $realtype, $id}++ |
|
111
|
4 |
4 |
$realtype eq 'REF' ? : |
|
|
10 |
8 |
$realtype eq 'SCALAR' ? : |
|
|
22 |
18 |
$realtype eq 'ARRAY' ? : |
|
|
15 |
40 |
$realtype eq 'HASH' ? : |
|
131
|
2 |
3 |
@_ ? : |
|
261
|
6 |
3 |
if not defined $_ or ref $_ or &Scalar::Util::readonly($_) or tainted($_) |
|
292
|
29 |
29 |
unless ref $_ or &Scalar::Util::readonly($_) |
|
326
|
5 |
2 |
if tainted($Test::Taint::TAINT) |
|
330
|
1 |
1 |
if tainted($Test::Taint::TAINT) |
|
337
|
0 |
103 |
unless defined $_ |
|
338
|
103 |
0 |
if (open FOO, $_) |
|
340
|
100 |
3 |
if (defined sysread(FOO, $potentially_tainted_data, 1)) |
|
342
|
0 |
100 |
if tainted($Test::Taint::TAINT) |
|
350
|
0 |
7 |
if length $Test::Taint::TAINT |