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 |