| line |
true |
false |
branch |
|
20
|
0 |
775 |
if ($self->numbering_system->{$numbering_system}{'type'} eq 'algorithmic') |
|
43
|
5 |
772 |
if (grep {$_ eq $format;} @valid_formats) |
|
48
|
0 |
772 |
if (my($locale_id, $type, $format) = $format =~ m[^(.*?)/(.*?)/(.*?)$]u) |
|
57
|
17 |
755 |
if ($format =~ tr/\244//) |
|
61
|
17 |
0 |
unless defined $currency |
|
97
|
16 |
18 |
$for_cash ? : |
|
105
|
8 |
9 |
$for_cash ? : |
|
117
|
747 |
27 |
if exists $cache{$format} |
|
119
|
17 |
10 |
if defined $currency |
|
129
|
43 |
11 |
if (($prefix) = $to_parse =~ /^ ( (?: [^0-9\@#.,E'*] | (?: ' [^']* ' )++ )+ ) /ux) |
|
132
|
15 |
39 |
if (($suffix) = $to_parse =~ / ( (?: [^0-9\@#.,E'] | (?: ' [^']* ' )++ )+ ) $ /ux) |
|
146
|
0 |
54 |
if (($pad_character) = $prefix =~ /^\*(\p{Any})/u) { } |
|
|
0 |
54 |
elsif (($pad_character) = $prefix =~ /\*(\p{Any})$/u) { } |
|
|
0 |
54 |
elsif (($pad_character) = $suffix =~ /^\*(\p{Any})/u) { } |
|
|
1 |
53 |
elsif (($pad_character) = $suffix =~ /\*(\p{Any})$/u) { } |
|
163
|
1 |
53 |
defined $pad_character ? : |
|
169
|
4 |
50 |
if $prefix =~ tr/%// or $suffix =~ tr/%// |
|
170
|
2 |
52 |
if $prefix =~ tr/\x{2030}// or $suffix =~ tr/\x{2030}// |
|
175
|
34 |
20 |
if defined $currency |
|
181
|
0 |
54 |
if (my($digits) = $to_parse =~ /(\@+)/u) { } |
|
196
|
0 |
54 |
if ($to_parse =~ tr/E//) { } |
|
236
|
0 |
17 |
if ($increment) |
|
242
|
17 |
0 |
if ($decimal_digits) { } |
|
277
|
0 |
772 |
if exists $symbols{$symbols_type}{'alias'} |
|
279
|
12 |
760 |
$number =~ s/^-//u ? : |
|
283
|
17 |
755 |
if ($format->{'rounding'} or defined $for_cash) |
|
286
|
17 |
0 |
if (defined $for_cash) |
|
294
|
4 |
768 |
if ($pad_zero > 0) |
|
302
|
772 |
0 |
$minimum_grouping_digits ? : |
|
307
|
772 |
0 |
if ($minimum_grouping_digits and length $integer >= $minimum_grouping_digits or not $minimum_grouping_digits) { } |
|
310
|
27 |
745 |
if (defined $minor_group and $separator) |
|
320
|
19 |
753 |
if defined $decimal |
|
331
|
24 |
1520 |
if ($type eq 'negative') { } |
|
353
|
0 |
773 |
unless $self->numbering_system->{$numbering_system}{'type'} eq 'numeric' |
|
385
|
0 |
8 |
unless $format_data |
|
394
|
0 |
8 |
if (my($locale_id, undef, $format) = $format_name =~ m[^(.*?)/(.*?)/(.*?)$]u) |
|
396
|
0 |
0 |
if $locale |
|
409
|
2 |
8 |
unless $data->{$format_name} |
|
410
|
0 |
8 |
unless $data->{$format_name}{$type} |
|
419
|
8 |
0 |
keys %data ? : |
|
426
|
0 |
1 |
unless defined $result |
|
439
|
3 |
11 |
if (not $plural and $format_rule =~ /(cardinal|ordinal)/u) |
|
446
|
3 |
11 |
if ($plural) |
|
454
|
1 |
13 |
if ($number =~ /^-/u) { } |
|
|
2 |
11 |
elsif ($number =~ /\./u) { } |
|
458
|
1 |
0 |
if ($format_rule =~ /\x{2192}\x{2192}/u) { } |
|
|
0 |
0 |
elsif (my($rule_name) = $format_rule =~ /\x{2192}(.+)\x{2192}/u) { } |
|
|
0 |
0 |
elsif ($format_rule =~ /=%%.*=/u) { } |
|
|
0 |
0 |
elsif ($format_rule =~ /=%.*=/u) { } |
|
|
0 |
0 |
elsif ($format_rule =~ /=.*=/u) { } |
|
463
|
0 |
0 |
if ($rule_name =~ s/^%%/%/u) |
|
467
|
0 |
0 |
if ($format_data) { } |
|
491
|
2 |
0 |
if ($number >= 0 and $number < 1) { } |
|
498
|
1 |
1 |
if ($format_rule =~ /\x{2192}\x{2192}/u) { } |
|
|
0 |
1 |
elsif (my($rule_name) = $format_rule =~ /\x{2192}(.*)\x{2192}/u) { } |
|
503
|
0 |
0 |
if ($rule_name =~ s/^%%/%/u) |
|
507
|
0 |
0 |
if ($format_data) { } |
|
515
|
1 |
1 |
if ($format_rule =~ /\x{2190}\x{2190}/u) { } |
|
|
0 |
1 |
elsif (my($rule_name) = $format_rule =~ /\x{2190}(.+)\x{2190}/u) { } |
|
520
|
0 |
0 |
if ($rule_name =~ s/^%%/%/u) |
|
524
|
0 |
0 |
if ($format_data) { } |
|
532
|
1 |
1 |
if ($format_rule =~ /=.*=/u) |
|
533
|
0 |
1 |
if ($format_rule =~ /=%%.*=/u) { } |
|
|
1 |
0 |
elsif ($format_rule =~ /=%.*=/u) { } |
|
548
|
3 |
8 |
if ($format_rule =~ /\[.*\]/u) |
|
549
|
0 |
3 |
if ($in_fraction_rule_set and $number * $base_value == 1) { } |
|
|
0 |
3 |
elsif (not $in_fraction_rule_set || $number % $divisor) { } |
|
561
|
2 |
9 |
if ($in_fraction_rule_set) { } |
|
562
|
0 |
2 |
if (my($rule_name) = $format_rule =~ /\x{2190}(.*)\x{2190}/u) { } |
|
|
0 |
2 |
elsif ($format_rule =~ /=.*=/u) { } |
|
563
|
0 |
0 |
if (length $rule_name) { } |
|
565
|
0 |
0 |
if ($rule_name =~ s/^%%/%/u) |
|
569
|
0 |
0 |
if ($format_data) { } |
|
585
|
3 |
6 |
if (my($rule_name) = $format_rule =~ /\x{2192}(.*)\x{2192}/u) |
|
586
|
0 |
3 |
if (length $rule_name) { } |
|
588
|
0 |
0 |
if ($rule_name =~ s/^%%/%/u) |
|
592
|
0 |
0 |
if ($format_data) { } |
|
604
|
0 |
9 |
if (my($rule_name) = $format_rule =~ /\x{2190}(.*)\x{2190}/u) |
|
605
|
0 |
0 |
if (length $rule_name) { } |
|
607
|
0 |
0 |
if ($rule_name =~ s/^%%/%/u) |
|
611
|
0 |
0 |
if ($format_data) { } |
|
623
|
4 |
5 |
if ($format_rule =~ /=.*=/u) |
|
624
|
0 |
4 |
if ($format_rule =~ /=%%.*=/u) { } |
|
|
2 |
2 |
elsif ($format_rule =~ /=%.*=/u) { } |
|
655
|
1 |
0 |
if $number =~ /^-/u and exists $format_data->{'-x'} |
|
656
|
1 |
1 |
if $number =~ /\./u and exists $format_data->{'x.x'} |
|
657
|
6 |
6 |
if $number == {sign => '+', value => [0]} or $number =~ /^-/u |
|
658
|
2 |
4 |
if $number >= $format_data->{'max'}{'base_value'} |
|
662
|
4 |
67 |
if $key == {sign => '+', value => [0]} |
|
663
|
1 |
66 |
if $number == $key |
|
664
|
3 |
63 |
if $number < $key |