| line |
true |
false |
branch |
|
39
|
61 |
57 |
if $mask =~ /\$/ |
|
40
|
31 |
87 |
if $mask =~ /-/ or $mask =~ /\+/ |
|
41
|
0 |
118 |
if $mask =~ /\+/ |
|
43
|
5 |
113 |
if ($mask =~ /
|
|
49
|
0 |
118 |
if ($mask =~ /\..*\./) { } |
|
|
84 |
34 |
elsif ($mask =~ /\./) { } |
|
58
|
0 |
118 |
if ($mask =~ /\).*\)/) { } |
|
|
28 |
90 |
elsif ($mask =~ /\)/) { } |
|
67
|
0 |
118 |
if ($mask =~ /\(/ and not $PAREN or $PAREN and not $mask =~ /\(/) |
|
72
|
0 |
28 |
if ($PAREN and $MINUS || $PLUS) |
|
78
|
78 |
40 |
if ($data >= 0) { } |
|
80
|
14 |
64 |
if ($PAREN) |
|
92
|
0 |
40 |
if ($PLUS) |
|
99
|
34 |
84 |
unless ($DECIMAL) |
|
115
|
31 |
59 |
if $PAREN or $MINUS or $PLUS |
|
116
|
61 |
57 |
if $DOLLAR |
|
117
|
4 |
114 |
if length $arr[0] > $count |
|
123
|
81 |
33 |
if ($DECIMAL) |
|
126
|
74 |
7 |
if ($data =~ /\./) { } |
|
139
|
222 |
35 |
if ($j < length $data) |
|
149
|
14 |
243 |
unless defined $fmt_pic[$i] |
|
154
|
0 |
243 |
if (/\*/) |
|
155
|
0 |
0 |
if (defined $num) { } |
|
165
|
162 |
81 |
if (/\$|#|-|\&/) |
|
166
|
148 |
14 |
if (defined $num) { } |
|
193
|
0 |
300 |
if $i < 0 |
|
195
|
145 |
155 |
if ($fmt_pic[$i] eq '$' or $fmt_pic[$i] eq '(') |
|
200
|
30 |
145 |
if $fmt_pic[$k] eq ',' |
|
218
|
3 |
155 |
if ($NEGATIVE and not $HAD_SIGN and not $PAREN and not $MINUS) |
|
225
|
46 |
589 |
if (/\*/) |
|
229
|
72 |
563 |
if (/\,/) |
|
230
|
72 |
0 |
if ($i > 0) { } |
|
|
0 |
0 |
elsif ($fmt_pic[$i + 1] =~ /[0-9]/) { } |
|
248
|
31 |
532 |
if (/\&/) |
|
252
|
118 |
445 |
if (/\$/) |
|
253
|
61 |
57 |
if ($HAD_DOLLAR) { } |
|
255
|
54 |
7 |
if ($i > 0) { } |
|
260
|
87 |
23 |
if ($fmt_pic[$k] eq '$' or $fmt_pic[$k] eq ',' or $fmt_pic[$k] eq '(') { } |
|
289
|
260 |
249 |
if (/\#/) |
|
293
|
35 |
474 |
if (/\(/) |
|
294
|
21 |
14 |
if ($HAD_PAREN) { } |
|
297
|
12 |
9 |
if ($i > 0) { } |
|
302
|
27 |
0 |
if ($fmt_pic[$k] eq '(' or $fmt_pic[$k] eq ',' or $fmt_pic[$k] eq '$') { } |
|
331
|
73 |
424 |
if (/-|\+/) |
|
332
|
52 |
21 |
if ($HAD_SIGN) { } |
|
334
|
37 |
15 |
if ($i > 0) { } |
|
339
|
79 |
0 |
if ($fmt_pic[$k] eq $_ or $fmt_pic[$k] eq ',' or $fmt_pic[$k] eq '$') { } |
|
371
|
28 |
86 |
if $SUPRESS_LEAD_SPACE |