| line |
true |
false |
branch |
|
70
|
21 |
0 |
if (defined &CORE::fc) { }
|
|
600
|
0 |
0 |
unless $language eq "und"
|
|
625
|
0 |
0 |
if $script
|
|
652
|
0 |
0 |
if $region
|
|
670
|
248 |
100 |
$_ ? :
|
|
677
|
18 |
98 |
$self->_has_likely_subtag ? :
|
|
|
18 |
98 |
$self->_has_likely_subtag ? :
|
|
|
18 |
98 |
$self->_has_likely_subtag ? :
|
|
684
|
248 |
100 |
unless $path[$i] eq "und" or $path[$i] eq "Any"
|
|
704
|
95 |
135 |
if ($canload) { }
|
|
714
|
20 |
95 |
if ($errors)
|
|
725
|
20 |
95 |
if (ref $module eq "Locale::CLDR::Locales::Root")
|
|
1167
|
4 |
170 |
unless defined $name
|
|
1168
|
0 |
170 |
unless (defined $value)
|
|
1206
|
1 |
340 |
unless defined $regex
|
|
1208
|
340 |
0 |
unless $has_emoji
|
|
1211
|
0 |
340 |
unless $has_Grapheme_Cluster_Break_ZWJ
|
|
1214
|
0 |
340 |
unless $has_Grapheme_Cluster_Break_E_Base
|
|
1217
|
0 |
340 |
unless $has_Grapheme_Cluster_Break_E_Base_GAZ
|
|
1220
|
0 |
340 |
unless $has_Grapheme_Cluster_Break_E_Modifier
|
|
1223
|
0 |
340 |
unless $has_Word_Break_ZWJ
|
|
1226
|
0 |
340 |
unless $has_Word_Break_E_Base
|
|
1229
|
0 |
340 |
unless $has_Word_Break_E_Base_GAZ
|
|
1232
|
0 |
340 |
unless $has_Word_Break_E_Modifier
|
|
1235
|
340 |
0 |
unless $has_Word_Break_Hebrew_Letter
|
|
1238
|
340 |
0 |
unless $has_Word_Break_Single_Quote
|
|
1241
|
0 |
340 |
unless $has_Line_Break_ZWJ
|
|
1244
|
0 |
340 |
unless $has_Line_Break_E_Base
|
|
1247
|
340 |
0 |
unless $has_Line_Break_E_Base_GAZ
|
|
1250
|
0 |
340 |
unless $has_Line_Break_E_Modifier
|
|
1253
|
340 |
0 |
unless $has_Extended_Pictographic
|
|
1256
|
340 |
0 |
unless $has_Word_Break_WSegSpace
|
|
1276
|
0 |
112 |
unless defined $rules{$rule_number}
|
|
1282
|
189 |
35 |
if ($operand =~ / \S /msux) { }
|
|
1291
|
97 |
15 |
$opp eq "\327" ? :
|
|
1305
|
0 |
106 |
if (@_ > 1 and ref $_[-1] eq "HASH")
|
|
1309
|
85 |
21 |
if (1 == @_ and not ref $_[0])
|
|
1319
|
1 |
84 |
if (not defined $script and length $language == 4)
|
|
1325
|
135 |
205 |
unless defined $_
|
|
1337
|
21 |
85 |
unless (keys %args)
|
|
1339
|
0 |
21 |
ref $_[0] ? :
|
|
1344
|
6 |
100 |
if (defined $args{'extensions'} and not ref $args{'extensions'})
|
|
1352
|
102 |
4 |
if defined $args{'language_id'}
|
|
1353
|
90 |
16 |
if defined $args{'script_id'}
|
|
1354
|
92 |
14 |
if defined $args{'region_id'}
|
|
1355
|
90 |
16 |
if defined $args{'variant_id'}
|
|
1494
|
66 |
2 |
if ($self->_test_default_ca) { }
|
|
1504
|
2 |
8 |
if ($default) { }
|
|
1520
|
20 |
0 |
if ($self->_test_default_cf) { }
|
|
1538
|
28 |
8 |
if ($self->script_id)
|
|
1542
|
28 |
8 |
if ($self->region_id)
|
|
1546
|
3 |
33 |
if ($self->variant_id)
|
|
1550
|
0 |
36 |
if (defined $self->extensions)
|
|
1565
|
0 |
0 |
if ($self->language_id eq 'en') { }
|
|
1638
|
3363 |
0 |
$self->_has_likely_subtag ? :
|
|
1643
|
3230 |
133 |
if ($self->method_cache->{$id}{$method_name})
|
|
1646
|
2451 |
779 |
wantarray ? :
|
|
1650
|
133 |
532 |
if $module eq "Moo::Object"
|
|
1651
|
123 |
409 |
if (defined &{"${module}::$method_name";})
|
|
1656
|
52 |
81 |
unless $self->method_cache->{$id}{$method_name}
|
|
1659
|
66 |
15 |
wantarray ? :
|
|
1684
|
1 |
0 |
$name->region_id ? :
|
|
|
1 |
5 |
ref $name ? :
|
|
1692
|
4 |
2 |
if defined $display_name
|
|
1696
|
2 |
0 |
unless (ref $name)
|
|
1726
|
5 |
3 |
ref $name ? :
|
|
1730
|
7 |
1 |
if ($code)
|
|
1733
|
7 |
0 |
if (defined $display_name)
|
|
1741
|
1 |
7 |
unless (defined $language)
|
|
1744
|
1 |
0 |
if (defined $display_name)
|
|
1791
|
3 |
4 |
unless (ref $name)
|
|
1795
|
3 |
4 |
if (ref $name and not $name->script_id)
|
|
1801
|
3 |
1 |
if ($name)
|
|
1804
|
3 |
0 |
if (defined $script)
|
|
1810
|
1 |
3 |
unless ($script)
|
|
1813
|
1 |
0 |
if (defined $script)
|
|
1859
|
5 |
4 |
unless (ref $name)
|
|
1863
|
0 |
9 |
if (ref $name and not $name->region_id)
|
|
1869
|
7 |
2 |
if ($name)
|
|
1872
|
7 |
0 |
if (defined $region)
|
|
1878
|
2 |
7 |
unless (defined $region)
|
|
1881
|
2 |
0 |
if (defined $region)
|
|
1927
|
4 |
3 |
unless (ref $name)
|
|
1931
|
3 |
3 |
unless $name->variant_id
|
|
1933
|
3 |
0 |
if ($name->has_variant)
|
|
1937
|
2 |
1 |
if (defined $variant)
|
|
1965
|
0 |
2 |
unless exists $valid_keys{$key} or exists $valid_keys{$alias} or exists $valid_keys{$name}
|
|
1972
|
3 |
0 |
if defined $return and length $return
|
|
1998
|
0 |
2 |
unless exists $valid_keys{$key} or $valid_keys{$alias} or $valid_keys{$name}
|
|
1999
|
2 |
1 |
unless $valid_keys{$key}
|
|
|
3 |
0 |
unless $valid_keys{$alias}
|
|
|
1 |
2 |
unless $valid_keys{$name}
|
|
|
0 |
3 |
unless &first(sub {
|
|
2005
|
3 |
0 |
if defined $type
|
|
2023
|
2 |
4 |
if $name eq "METRIC"
|
|
2028
|
6 |
0 |
if defined $system
|
|
2049
|
0 |
0 |
if length $key
|
|
2067
|
0 |
3 |
unless $type =~ / \A (?: language | script | region ) \z /ux
|
|
2073
|
0 |
3 |
unless &blessed($locale)
|
|
2081
|
0 |
3 |
unless defined $text
|
|
2104
|
0 |
2 |
unless defined $orientation
|
|
2116
|
0 |
0 |
if ($casing eq 'titlecase-firstword') { }
|
|
|
0 |
0 |
elsif ($casing eq 'titlecase-words') { }
|
|
|
0 |
0 |
elsif ($casing eq 'lowercase-words') { }
|
|
2119
|
0 |
0 |
if ($words[0] =~ / \A \s /ux)
|
|
2152
|
0 |
11 |
if $^V lt v5.18.0
|
|
2238
|
2790 |
160 |
unless (($first) = $string =~ /
|
|
2253
|
3 |
157 |
(!$grapheme_split && length $gc) > $length ? :
|
|
2260
|
105 |
59 |
$rules->[$_][2] ? :
|
|
2264
|
59 |
105 |
unless $split
|
|
2295
|
2 |
5 |
if @parameters == 1
|
|
2297
|
7 |
0 |
unless $parameters[0] eq "index"
|
|
2302
|
2 |
8 |
unless defined $characters
|
|
2303
|
4 |
4 |
if CORE::fc($parameters[1]) =~ /$characters/u
|
|
2322
|
0 |
1 |
unless defined $characters
|
|
2334
|
0 |
6 |
unless defined $ellipsis
|
|
2449
|
0 |
3 |
unless defined $quote
|
|
2457
|
0 |
3 |
unless defined $quote
|
|
2465
|
0 |
3 |
unless defined $quote
|
|
2473
|
0 |
3 |
unless defined $quote
|
|
2491
|
3 |
0 |
if ($inner == -1 or $outer > -1 and $inner > -1 and $outer < $inner)
|
|
2518
|
0 |
1 |
unless defined $info
|
|
2610
|
728 |
20 |
if (exists $bundle->units->{$type}{$what}{$plural})
|
|
2615
|
0 |
20 |
if (exists $bundle->units->{$type}{$what}{'other'})
|
|
2622
|
10 |
728 |
unless ($format)
|
|
2627
|
0 |
10 |
unless $type
|
|
2629
|
4 |
12 |
if (exists $bundle->units->{$type}{$what}{$plural})
|
|
2634
|
0 |
12 |
if (exists $bundle->units->{$type}{$what}{'other'})
|
|
2644
|
6 |
732 |
if (not $format and my($dividend, $divisor) = $what =~ /^(.+)-per-(.+)$/u)
|
|
2649
|
0 |
732 |
unless $format
|
|
2663
|
6 |
0 |
if ($divisor)
|
|
2677
|
0 |
0 |
if (exists $bundle->units->{$type}{'per'}{''})
|
|
2684
|
0 |
0 |
unless ($format)
|
|
2690
|
0 |
0 |
if (exists $bundle->units->{$type}{'per'}{'1'})
|
|
2716
|
0 |
0 |
if (exists $bundle->units->{'long'}{$what}{'name'})
|
|
2726
|
0 |
0 |
unless $type
|
|
2728
|
0 |
0 |
if (exists $bundle->units->{$type}{$what}{'name'})
|
|
2743
|
4 |
4 |
if (exists $bundle->units->{$type}{$what}{'per'})
|
|
2752
|
0 |
2 |
unless $type
|
|
2754
|
2 |
0 |
if (exists $bundle->units->{$type}{$what}{'per'})
|
|
2770
|
0 |
24 |
if (exists $bundle->number_symbols->{$symbols_type}{'alias'})
|
|
2776
|
12 |
12 |
if exists $bundle->number_symbols->{$symbols_type}{'timeSeparator'}
|
|
2799
|
7 |
2 |
if $parsed =~ s/$entry/$self->format_number(shift @data, $num_format);/eu
|
|
2829
|
1 |
1 |
$test_str =~ $bundle->yesstr ? :
|
|
2846
|
1 |
1 |
$test_str =~ $bundle->nostr ? :
|
|
2879
|
0 |
0 |
ref $_ ? :
|
|
2884
|
0 |
0 |
if ($canload) { }
|
|
2909
|
0 |
0 |
unless pos $text < length $text
|
|
2923
|
0 |
0 |
if ($to_transform)
|
|
2925
|
0 |
0 |
if ($rule->{'type'} eq 'transform') { }
|
|
2944
|
0 |
0 |
if ($_ eq 'nfc') { }
|
|
|
0 |
0 |
elsif ($_ eq 'nfd') { }
|
|
|
0 |
0 |
elsif ($_ eq 'nfkd') { }
|
|
|
0 |
0 |
elsif ($_ eq 'nfkc') { }
|
|
|
0 |
0 |
elsif ($_ eq 'lower') { }
|
|
|
0 |
0 |
elsif ($_ eq 'upper') { }
|
|
|
0 |
0 |
elsif ($_ eq 'title') { }
|
|
|
0 |
0 |
elsif ($_ eq 'null') { }
|
|
|
0 |
0 |
elsif ($_ eq 'remove') { }
|
|
2985
|
0 |
0 |
if length $rule->{'before'} and not $text =~ /$rule->{'before'}\G/u
|
|
2987
|
0 |
0 |
if length $rule->{'after'}
|
|
2989
|
0 |
0 |
if length $rule->{'after'}
|
|
2990
|
0 |
0 |
if ($text =~ s/\G$regex/eval $result;/eu)
|
|
3020
|
1 |
4 |
unless @data
|
|
3021
|
1 |
3 |
if 1 == @data
|
|
3031
|
1 |
2 |
if (my $pattern = $list_data{scalar @data})
|
|
3114
|
0 |
16 |
if (exists $months->{$default_calendar}{'alias'})
|
|
3119
|
4 |
12 |
if (exists $months->{$default_calendar}{$type}{$width}{'alias'})
|
|
3125
|
8 |
4 |
if defined $result
|
|
3127
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
3187
|
0 |
13 |
if (exists $days->{$default_calendar}{'alias'})
|
|
3192
|
3 |
10 |
if (exists $days->{$default_calendar}{$type}{$width}{'alias'})
|
|
3197
|
7 |
3 |
if keys %$result
|
|
3199
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
3260
|
0 |
12 |
if (exists $quarters->{$default_calendar}{'alias'})
|
|
3265
|
3 |
9 |
if (exists $quarters->{$default_calendar}{$type}{$width}{'alias'})
|
|
3271
|
6 |
3 |
if keys %$result
|
|
3273
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
3338
|
0 |
0 |
$time < 1200 ? :
|
|
3357
|
0 |
38 |
if (exists $am_pm->{$default_calendar}{'alias'})
|
|
3362
|
0 |
38 |
if (exists $am_pm->{$default_calendar}{$type}{'alias'})
|
|
3367
|
9 |
29 |
if (exists $am_pm->{$default_calendar}{$type}{$width}{'alias'})
|
|
3377
|
80 |
84 |
unless exists $return{$_}
|
|
3465
|
0 |
9 |
if (exists $eras->{$default_calendar}{'alias'})
|
|
3470
|
0 |
9 |
if (exists $eras->{$default_calendar}{$width}{'alias'})
|
|
3480
|
9 |
0 |
if keys %$result
|
|
3482
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
3554
|
0 |
9 |
if (exists $date_formats->{'alias'})
|
|
3560
|
9 |
0 |
if $result
|
|
3562
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
3608
|
0 |
9 |
if (exists $time_formats->{$default_calendar}{'alias'})
|
|
3614
|
9 |
0 |
if ($result)
|
|
3620
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
3665
|
0 |
5 |
if (exists $datetime_formats->{$default_calendar}{'alias'})
|
|
3671
|
5 |
0 |
if $result
|
|
3673
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
3751
|
0 |
0 |
if $result
|
|
3784
|
0 |
0 |
if $result
|
|
3799
|
0 |
0 |
if $result
|
|
3807
|
1 |
0 |
$self->time_format_short =~ /h|K/u ? :
|
|
3833
|
0 |
189 |
unless length $regex
|
|
3865
|
330 |
6 |
if $set =~ /^
|
|
|
330 |
6 |
if ($normal)
|
|
4013
|
2 |
2 |
if exists $week_data_hash->{$region_id}
|
|
4017
|
0 |
8 |
unless defined $region_id
|
|
4018
|
2 |
6 |
if exists $week_data_hash->{$region_id}
|
|
4050
|
2 |
1 |
if ($self->_test_default_fw)
|
|
4120
|
0 |
1 |
if ($context eq 'numeric') { }
|
|
4137
|
0 |
2 |
if (exists $month_patterns->{$default_calendar}{'alias'})
|
|
4143
|
1 |
1 |
if (exists $month_patterns->{$default_calendar}{$context}{$width}{'alias'})
|
|
4150
|
1 |
0 |
if $result
|
|
4152
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
4158
|
1 |
0 |
if ($result)
|
|
4189
|
0 |
3 |
if (my $alias_calendar = $cyclic_name_set->{$default_calendar}{'alias'})
|
|
4194
|
0 |
3 |
if (my $type_alias = $cyclic_name_set->{$default_calendar}{$type}{'alias'})
|
|
4199
|
1 |
2 |
if (my $width_alias = $cyclic_name_set->{$default_calendar}{$type}{$context}{$width}{'alias'})
|
|
4211
|
1 |
1 |
if @$return
|
|
4334
|
0 |
2 |
if defined $default_currency_format and $default_currency_format ne "standard" and $default_currency_format ne "accounting"
|
|
4347
|
0 |
22 |
if (exists $format->{$default_numbering_system}{'alias'})
|
|
4352
|
0 |
22 |
if (exists $format->{$default_numbering_system}{'pattern'}{'default'}{$default_currency_format}{'alias'})
|
|
4358
|
22 |
0 |
if exists $format->{$default_numbering_system}{'pattern'}{'default'}{$default_currency_format}
|
|
4361
|
10 |
12 |
if $default_currency_format eq "account"
|
|
4367
|
11 |
11 |
defined $format->{$default_numbering_system}{'pattern'}{'default'}{$default_currency_format}{'negative'} ? :
|
|
4452
|
8 |
9 |
if $self->_test_default_cu
|
|
4456
|
0 |
9 |
unless ($region_id)
|
|
4463
|
9 |
0 |
if exists $default_currencies->{$region_id}
|
|
4467
|
0 |
0 |
unless $region_id
|
|
4468
|
0 |
0 |
if (exists $default_currencies->{$region_id})
|
|
4490
|
17 |
0 |
if $symbol
|
|
4602
|
0 |
1 |
if @_ % 2
|
|
4612
|
0 |
1 |
if @_ % 2
|
|
4619
|
0 |
8 |
unless grep {$_ eq $plural;} "zero", "one", "two", "few", "many", "other"
|
|
4643
|
2 |
7 |
unless $text =~ /\[/u
|
|
4650
|
2 |
6 |
if (length $raw)
|
|
4664
|
0 |
8 |
unless length $text
|
|
4669
|
0 |
8 |
if not length $method and length $text
|
|
4673
|
0 |
8 |
if $method =~ /^\[.*\[/u
|
|
4677
|
0 |
8 |
if (my($number) = $method =~ / \[ \s* _ [0-9]+ \s* \] /ux)
|
|
4678
|
0 |
0 |
if ($number == 0) { }
|
|
4697
|
6 |
2 |
if ($is_plural)
|
|
4703
|
0 |
8 |
unless exists $methods{lc $method}
|
|
4711
|
8 |
0 |
scalar @params ? :
|
|
|
8 |
0 |
scalar @params ? :
|
|
4729
|
0 |
0 |
unless $type ~~ ["ordinal", "cardinal"]
|
|
4732
|
0 |
0 |
unless $gender ~~ ["masculine", "feminine", "nuter"]
|
|
4735
|
0 |
0 |
defined $declention ? :
|
|
4745
|
0 |
0 |
if exists $formats{$name}
|
|
4787
|
0 |
3 |
if (ref $params[-1] eq "HASH")
|
|
4834
|
0 |
0 |
if $override = $bundle->collation->{$type}
|
|
4837
|
0 |
5 |
if ($type ne "standard" and not $override)
|
|
4839
|
0 |
0 |
if $override = $bundle->collation->{'standard'}
|
|
4849
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'co'}
|
|
4854
|
0 |
0 |
if $collation_type = $bundle->collation_type
|
|
4863
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'ka'}
|
|
4868
|
0 |
0 |
if $collation_alternate = $bundle->collation_alternate
|
|
4877
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kb'}
|
|
4882
|
0 |
0 |
if $collation_backwards = $bundle->collation_backwards
|
|
4891
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kc'}
|
|
4896
|
0 |
0 |
if $collation_case_level = $bundle->collation_case_level
|
|
4905
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kf'}
|
|
4910
|
0 |
0 |
if $collation_case_ordering = $bundle->collation_case_ordering
|
|
4919
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kk'}
|
|
4924
|
0 |
0 |
if $collation_normalization = $bundle->collation_normalization
|
|
4933
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kn'}
|
|
4938
|
0 |
0 |
if $collation_numeric = $bundle->collation_numeric
|
|
4947
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kr'}
|
|
4952
|
0 |
0 |
if ref($collation_reorder = $bundle->collation_reorder) and @$collation_reorder
|
|
4962
|
0 |
1 |
if ($collation_strength)
|
|
4964
|
0 |
0 |
unless $collation_strength + 0
|
|
4972
|
0 |
0 |
if $collation_strength = $bundle->collation_strength
|
|
4981
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kv'}
|
|
4986
|
0 |
0 |
if $collation_max_variable = $bundle->collation_max_variable
|