| line |
true |
false |
branch |
|
36
|
0 |
6 |
unless $$rhash{$_[0] + 0} |
|
42
|
0 |
1 |
unless $$rhash{$_[0]} |
|
73
|
45 |
2 |
if (@values == 1) { } |
|
84
|
0 |
9 |
if ($prefix and $display_prefix) { } |
|
97
|
0 |
25 |
if (@$syms > 1) { } |
|
118
|
51 |
6 |
unless ($uspec) |
|
121
|
0 |
6 |
if (defined $depvar and not $$depvar) |
|
124
|
0 |
6 |
if (ref $uspec) { } |
|
128
|
0 |
6 |
unless (defined($$myspec = *{$pkg . "::$pvar";}{$vtype})) |
|
134
|
2 |
17 |
if ($uspec_export_ok) |
|
137
|
1 |
18 |
if ($uspec_export) |
|
140
|
3 |
16 |
if ($uspec_export_tags) |
|
160
|
12 |
7 |
if (not $utype or $utype =~ /int/i) { } |
|
|
6 |
1 |
elsif ($utype =~ /bit/i) { } |
|
|
1 |
0 |
elsif ($utype =~ /str/i) { } |
|
173
|
38 |
438 |
if exists $$h{$_} |
|
178
|
0 |
19 |
unless $symspecs |
|
196
|
3 |
16 |
if (not $mapname and $export_tag) |
|
204
|
4 |
15 |
ref $symspecs eq 'HASH' ? : |
|
210
|
13 |
32 |
if ($stringy and looks_like_number $symval) |
|
212
|
0 |
13 |
$display_prefix ? : |
|
222
|
9 |
10 |
if ($mapname) |
|
227
|
5 |
14 |
if ($prefix) |
|
240
|
1 |
18 |
if ($listname) |
|
245
|
1 |
18 |
if ($symsname) |
|
250
|
9 |
10 |
if $mapname |
|
255
|
0 |
19 |
if (%opts) |