| line |
true |
false |
branch |
|
28
|
132 |
88 |
if (defined $_[0]) { } |
|
29
|
44 |
88 |
if (blessed($_[0])) { } |
|
34
|
44 |
44 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
52
|
98 |
0 |
exists $$allmyvars{$var} ? : |
|
55
|
0 |
98 |
unless ref $val eq 'SCALAR' |
|
64
|
2 |
0 |
if (exists $$allmyvars{$var}) { } |
|
|
0 |
0 |
elsif (exists $$allourvars{$var}) { } |
|
75
|
0 |
235 |
unless index($format, '%{') >= 0 |
|
82
|
15 |
230 |
if (substr($p, 0, 1) eq '#') { } |
|
|
230 |
0 |
elsif ($p =~ m[\A(\w+)(?:([:#%/\^,])(.*))?\z]) { } |
|
92
|
15 |
215 |
unless ($op) |
|
97
|
15 |
200 |
if index($reminder, '%{') >= 0 |
|
100
|
60 |
155 |
if ($op eq ':') { } |
|
|
25 |
130 |
elsif ($op eq '#') { } |
|
|
10 |
120 |
elsif ($op eq '%') { } |
|
|
40 |
80 |
elsif ($op eq '/') { } |
|
|
40 |
40 |
elsif ($op eq '^') { } |
|
|
40 |
0 |
elsif ($op eq ',') { } |
|
102
|
20 |
40 |
if ($reminder =~ /^\d+/) |
|
103
|
20 |
0 |
if ($val) |
|
105
|
5 |
15 |
if ($limit) { } |
|
115
|
10 |
30 |
if ($control eq '+') |
|
116
|
5 |
5 |
if (defined $val) { } |
|
125
|
10 |
20 |
if (defined $val) { } |
|
129
|
15 |
5 |
if ($control eq '-') { } |
|
|
5 |
0 |
elsif ($control eq '=') { } |
|
137
|
25 |
0 |
if ($val) |
|
141
|
5 |
20 |
if ($control eq '#') { } |
|
154
|
10 |
0 |
if ($val) |
|
159
|
5 |
5 |
if ($control eq '%') { } |
|
172
|
40 |
0 |
if ($val) |
|
175
|
5 |
35 |
if ($control eq '/') { } |
|
|
10 |
25 |
elsif ($control eq '#') { } |
|
|
10 |
15 |
elsif ($control eq '%') { } |
|
206
|
40 |
0 |
if ($val) |
|
209
|
20 |
20 |
if ($control eq '^') { } |
|
210
|
10 |
10 |
if ($reminder eq '^' or $reminder eq '^?') { } |
|
217
|
10 |
10 |
if (length $reminder and $reminder ne '?') { } |
|
225
|
40 |
0 |
if ($val) |
|
228
|
20 |
20 |
if ($control eq ',') { } |
|
229
|
10 |
10 |
if ($reminder eq ',' or $reminder eq ',?') { } |
|
236
|
10 |
10 |
if (length $reminder and $reminder ne '?') { } |
|
247
|
0 |
245 |
unless defined $rep |