| 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)
|