| line |
true |
false |
branch |
|
66
|
2 |
9 |
unless (defined $amt) |
|
71
|
0 |
9 |
unless (defined $code) |
|
78
|
1 |
8 |
unless ($cur) |
|
83
|
6 |
2 |
$style ? : |
|
91
|
6 |
2 |
$style ? : |
|
93
|
1 |
0 |
$cur->[$pre] ? : |
|
|
1 |
0 |
$cur->[$pre] ? : |
|
|
1 |
1 |
$cur->[$pre] ? : |
|
|
1 |
3 |
$style == 32 ? : |
|
|
2 |
4 |
$style == 8 && $cur->[$com_sym] ? : |
|
|
1 |
6 |
$style == 16 && $cur->[$htm_sym] ? : |
|
|
1 |
7 |
$style == 4 && $cur->[$utf_sym] ? : |
|
111
|
1 |
5 |
unless (defined $code) |
|
116
|
2 |
3 |
unless $type |
|
117
|
1 |
4 |
if ($type != 2 and $type != 1) |
|
123
|
1 |
3 |
unless ($cur) |
|
128
|
2 |
1 |
$type == 1 ? : |
|
129
|
1 |
2 |
unless ($sym) |
|
130
|
1 |
0 |
$type == 1 ? : |
|
142
|
0 |
2 |
unless (defined $code) |
|
148
|
0 |
2 |
unless ($cur) |
|
154
|
0 |
2 |
unless ($precision) |
|
165
|
0 |
2 |
unless (defined $code) |
|
171
|
0 |
2 |
unless ($cur) |
|
177
|
0 |
2 |
unless ($separator) |
|
188
|
0 |
2 |
unless (defined $code) |
|
194
|
0 |
2 |
unless ($cur) |
|
200
|
0 |
2 |
unless ($separator) |
|
211
|
0 |
3 |
unless ($code) |
|
215
|
0 |
3 |
if ($tmpl and not $style && grep({$style == $_;} 4, 16, 8)) |
|
225
|
0 |
3 |
unless ($cur) |
|
230
|
1 |
2 |
unless ($tmpl) |
|
231
|
1 |
0 |
if $original{$ucc} |
|
235
|
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) |
|
254
|
2 |
0 |
unless $original{$ucc} |
|
257
|
1 |
1 |
$1 ? : |
|
|
2 |
0 |
if $1 or $5 |
|
260
|
2 |
0 |
$4 ? : |
|
261
|
2 |
0 |
if (($1 || $5) =~ /\A (\s*) (.+) (\s*) \Z/msx) |
|
263
|
0 |
2 |
if ($style == 4) { } |
|
|
0 |
2 |
elsif ($style == 16) { } |
|
|
2 |
0 |
elsif ($style == 8) { } |
|
284
|
0 |
8 |
unless defined $precision |
|
285
|
0 |
8 |
unless defined $number |
|
291
|
0 |
8 |
if $sign < 0 |
|
299
|
0 |
8 |
unless defined $precision |
|
300
|
0 |
8 |
unless defined $trailing_zeroes |
|
304
|
0 |
8 |
if $sign < 0 |
|
314
|
0 |
8 |
if length $integer < length $number |
|
316
|
8 |
0 |
unless defined $decimal |
|
319
|
6 |
2 |
if $trailing_zeroes and $precision > length $decimal |
|
323
|
8 |
0 |
unless length($integer) % 3 == 0 |
|
331
|
0 |
8 |
if $integer eq $EMPTY |
|
334
|
6 |
2 |
defined $decimal && length $decimal ? : |
|
338
|
0 |
8 |
$sign < 0 ? : |
|
343
|
0 |
0 |
unless defined $format |