| line |
true |
false |
branch |
|
68
|
2 |
8 |
unless (defined $amt) |
|
73
|
0 |
8 |
unless (defined $code) |
|
80
|
1 |
7 |
unless ($cur) |
|
85
|
6 |
1 |
$style ? : |
|
93
|
6 |
1 |
$style ? : |
|
95
|
1 |
0 |
$cur->[$pre] ? : |
|
|
1 |
0 |
$cur->[$pre] ? : |
|
|
1 |
1 |
$cur->[$pre] ? : |
|
|
1 |
2 |
$style == 32 ? : |
|
|
2 |
3 |
$style == 8 && $cur->[$com_sym] ? : |
|
|
1 |
5 |
$style == 16 && $cur->[$htm_sym] ? : |
|
|
1 |
6 |
$style == 4 && $cur->[$utf_sym] ? : |
|
113
|
1 |
5 |
unless (defined $code) |
|
118
|
2 |
3 |
unless $type |
|
119
|
1 |
4 |
if ($type != 2 and $type != 1) |
|
125
|
1 |
3 |
unless ($cur) |
|
130
|
2 |
1 |
$type == 1 ? : |
|
131
|
1 |
2 |
unless ($sym) |
|
132
|
1 |
0 |
$type == 1 ? : |
|
144
|
0 |
2 |
unless (defined $code) |
|
150
|
0 |
2 |
unless ($cur) |
|
156
|
0 |
2 |
unless ($name) |
|
170
|
0 |
2 |
unless (defined $code) |
|
176
|
0 |
2 |
unless ($cur) |
|
182
|
0 |
2 |
unless ($precision) |
|
193
|
0 |
2 |
unless (defined $code) |
|
199
|
0 |
2 |
unless ($cur) |
|
205
|
0 |
2 |
unless ($separator) |
|
216
|
0 |
2 |
unless (defined $code) |
|
222
|
0 |
2 |
unless ($cur) |
|
228
|
0 |
2 |
unless ($separator) |
|
239
|
0 |
3 |
unless ($code) |
|
243
|
0 |
3 |
if ($tmpl and not $style && grep({$style == $_;} 4, 16, 8)) |
|
253
|
0 |
3 |
unless ($cur) |
|
258
|
1 |
2 |
unless ($tmpl) |
|
259
|
1 |
0 |
if $original{$ucc} |
|
264
|
0 |
1 |
if (not $tmpl =~ / \A
([^#]*) # 1 - preceding symbol (may contain space)
\# # followed by a #
([^#]+) # 2 - thousand separator
\#{3} # followed by 3 #'s
(?: #
([^#]+) # 3 - decimal separator
(\#+) # 4 - fractional
)* #
([^#]*) # 5 - trailing symbol (may contain space)
\Z
/msx or $1 and $5) |
|
283
|
2 |
0 |
unless $original{$ucc} |
|
286
|
1 |
1 |
$1 ? : |
|
|
2 |
0 |
if $1 or $5 |
|
289
|
2 |
0 |
$4 ? : |
|
290
|
2 |
0 |
if (($1 || $5) =~ /\A (\s*) (.+) (\s*) \Z/msx) |
|
292
|
0 |
2 |
if ($style == 4) { } |
|
|
0 |
2 |
elsif ($style == 16) { } |
|
|
2 |
0 |
elsif ($style == 8) { } |
|
314
|
0 |
7 |
unless defined $precision |
|
315
|
0 |
7 |
unless defined $number |
|
321
|
0 |
7 |
if $sign < 0 |
|
329
|
0 |
7 |
unless defined $precision |
|
330
|
0 |
7 |
unless defined $trailing_zeroes |
|
334
|
0 |
7 |
if $sign < 0 |
|
344
|
0 |
7 |
if length $integer < length $number |
|
346
|
7 |
0 |
unless defined $decimal |
|
349
|
6 |
1 |
if $trailing_zeroes and $precision > length $decimal |
|
353
|
7 |
0 |
unless length($integer) % 3 == 0 |
|
361
|
0 |
7 |
if $integer eq $EMPTY |
|
364
|
6 |
1 |
defined $decimal && length $decimal ? : |
|
368
|
0 |
7 |
$sign < 0 ? : |
|
373
|
0 |
0 |
unless defined $format |