| line |
true |
false |
branch |
|
41
|
10 |
10 |
if ($words[0] =~ /^-u$/i) { } |
|
|
5 |
5 |
elsif (@words == 1) { } |
|
|
5 |
0 |
elsif (@words == 2) { } |
|
45
|
5 |
5 |
if ($var =~ /^(\$|\@|\%)/) |
|
58
|
3 |
2 |
if ($name =~ /^(\$|\@|\%)/) |
|
69
|
5 |
0 |
if ($var =~ /^(\$|\@|\%)/) |
|
84
|
19 |
1 |
if (defined $curr_val) |
|
85
|
12 |
7 |
if (ref $curr_val) { } |
|
86
|
8 |
4 |
if (ref $curr_val eq 'ARRAY' and @$curr_val) |
|
89
|
0 |
12 |
if (ref $curr_val eq 'HASH' and keys %curr_val) |
|
94
|
7 |
0 |
if ($curr_val) |
|
102
|
10 |
10 |
if ($untie) { } |
|
104
|
4 |
6 |
if ($requested_type eq 'SCALAR') |
|
107
|
4 |
6 |
if ($requested_type eq 'ARRAY') |
|
111
|
2 |
8 |
if ($requested_type eq 'HASH') |
|
116
|
0 |
10 |
if ($actual_type and $actual_type ne $requested_type) |
|
117
|
0 |
0 |
if ($requested_type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($requested_type eq 'HASH') { } |
|
136
|
4 |
6 |
if ($requested_type eq 'SCALAR') |
|
137
|
1 |
3 |
unless $actual_type |
|
140
|
4 |
6 |
if ($requested_type eq 'ARRAY') |
|
141
|
0 |
4 |
unless $actual_type |
|
145
|
2 |
8 |
if ($requested_type eq 'HASH') |
|
146
|
0 |
2 |
unless $actual_type |