| line |
true |
false |
branch |
|
72
|
23 |
0 |
if (defined &CORE::fc) { }
|
|
741
|
0 |
0 |
if @$locales
|
|
747
|
0 |
0 |
if ($INC{'Test/More.pm'})
|
|
750
|
0 |
0 |
$self->region_id ? :
|
|
762
|
0 |
0 |
if $key
|
|
765
|
0 |
0 |
if $t_path
|
|
769
|
0 |
0 |
if $t_path
|
|
773
|
0 |
0 |
unless $Locale::CLDR::a->[1][0] cmp $Locale::CLDR::b->[1][0] or ($Locale::CLDR::a->[1][1] // "") cmp ($Locale::CLDR::b->[1][1] // "")
|
|
787
|
0 |
0 |
unless join("/", @path) =~ m[/lib/.*Locale/CLDR/Locales]u
|
|
791
|
0 |
0 |
if $file =~ /^\./u
|
|
792
|
0 |
0 |
if $file eq "Root.pm"
|
|
793
|
0 |
0 |
if (-d 'File::Spec'->catdir($path, $file)) { }
|
|
799
|
0 |
0 |
unless $line =~ /^package/u
|
|
801
|
0 |
0 |
if (defined $_ and $_ eq 'Any') { }
|
|
802
|
0 |
0 |
if ($script and $script eq "und" and not $region)
|
|
854
|
0 |
0 |
unless $language eq "und"
|
|
879
|
0 |
0 |
if $script
|
|
906
|
0 |
0 |
if $region
|
|
924
|
302 |
118 |
$_ ? :
|
|
931
|
18 |
122 |
$self->_has_likely_subtag ? :
|
|
|
18 |
122 |
$self->_has_likely_subtag ? :
|
|
|
18 |
122 |
$self->_has_likely_subtag ? :
|
|
938
|
302 |
118 |
unless $path[$i] eq "und" or $path[$i] eq "Any"
|
|
958
|
112 |
121 |
if ($canload) { }
|
|
968
|
27 |
112 |
if ($errors)
|
|
979
|
27 |
112 |
if (ref $module eq "Locale::CLDR::Locales::Root")
|
|
1413
|
4 |
0 |
unless @{$self->old_isa;}
|
|
1450
|
4 |
206 |
unless defined $name
|
|
1451
|
0 |
206 |
unless (defined $value)
|
|
1500
|
23 |
575 |
unless eval "'a' =~ qr/\\p{$missing}|a/"
|
|
1510
|
0 |
221 |
unless defined $regex
|
|
1514
|
221 |
0 |
if $missing_unicode_properties{$missing}
|
|
1534
|
0 |
130 |
unless defined $rules{$rule_number}
|
|
1540
|
217 |
43 |
if ($operand =~ / \S /msux) { }
|
|
1550
|
114 |
16 |
$opp eq "\327" ? :
|
|
1561
|
122 |
7 |
unless length $extensions
|
|
1563
|
0 |
7 |
ref $self ? :
|
|
1571
|
7 |
11 |
if (not $key) { }
|
|
1574
|
0 |
7 |
unless grep {$_ eq $key;} @extension_keys
|
|
1579
|
0 |
11 |
if (not @values and grep {$_ eq $value;} @extension_keys) { }
|
|
|
9 |
2 |
elsif (not grep({$_ eq $value;} @extension_keys)) { }
|
|
1595
|
0 |
7 |
unless @values
|
|
1606
|
0 |
129 |
if (@_ > 1 and ref $_[-1] eq "HASH")
|
|
1610
|
98 |
31 |
if (1 == @_ and not ref $_[0])
|
|
1620
|
0 |
0 |
$a =~ /^u/iu ? :
|
|
1622
|
1 |
34 |
if (not defined $script and length $language == 4 and lc $language ne "root")
|
|
1644
|
31 |
98 |
unless (keys %args)
|
|
1646
|
0 |
31 |
ref $_[0] ? :
|
|
1651
|
129 |
0 |
unless (ref $args{'extensions'})
|
|
1656
|
118 |
11 |
if defined $args{'language_id'}
|
|
1657
|
107 |
22 |
if defined $args{'script_id'}
|
|
1658
|
111 |
18 |
if defined $args{'region_id'}
|
|
1659
|
103 |
26 |
if defined $args{'variant_id'}
|
|
1666
|
220 |
38 |
if defined $_ and $_ eq ""
|
|
1821
|
66 |
2 |
if ($self->_test_default_ca) { }
|
|
1831
|
2 |
8 |
if ($default) { }
|
|
1847
|
20 |
0 |
if ($self->_test_default_cf) { }
|
|
1865
|
35 |
8 |
if ($self->script_id)
|
|
1869
|
35 |
8 |
if ($self->region_id)
|
|
1873
|
3 |
40 |
if ($self->variant_id)
|
|
1877
|
0 |
43 |
if (defined $self->extensions)
|
|
1962
|
3395 |
0 |
$self->_has_likely_subtag ? :
|
|
1967
|
3267 |
128 |
if ($self->method_cache->{$id}{$method_name})
|
|
1970
|
2478 |
789 |
wantarray ? :
|
|
1974
|
128 |
512 |
if $module eq "Moo::Object"
|
|
1975
|
123 |
389 |
if (defined &{"${module}::$method_name";})
|
|
1980
|
47 |
81 |
unless $self->method_cache->{$id}{$method_name}
|
|
1983
|
66 |
15 |
wantarray ? :
|
|
2008
|
1 |
0 |
$name->region_id ? :
|
|
|
1 |
5 |
ref $name ? :
|
|
2016
|
4 |
2 |
if defined $display_name
|
|
2020
|
2 |
0 |
unless (ref $name)
|
|
2050
|
5 |
3 |
ref $name ? :
|
|
2054
|
8 |
0 |
if ($code)
|
|
2057
|
7 |
1 |
if (defined $display_name)
|
|
2065
|
1 |
7 |
unless (defined $language)
|
|
2068
|
1 |
0 |
if (defined $display_name)
|
|
2115
|
3 |
4 |
unless (ref $name)
|
|
2119
|
3 |
4 |
if (ref $name and not $name->script_id)
|
|
2125
|
3 |
1 |
if ($name)
|
|
2128
|
3 |
0 |
if (defined $script)
|
|
2134
|
1 |
3 |
unless ($script)
|
|
2137
|
1 |
0 |
if (defined $script)
|
|
2183
|
5 |
4 |
unless (ref $name)
|
|
2187
|
0 |
9 |
if (ref $name and not $name->region_id)
|
|
2193
|
7 |
2 |
if ($name)
|
|
2196
|
7 |
0 |
if (defined $region)
|
|
2202
|
2 |
7 |
unless (defined $region)
|
|
2205
|
2 |
0 |
if (defined $region)
|
|
2251
|
4 |
3 |
unless (ref $name)
|
|
2255
|
3 |
3 |
unless $name->variant_id
|
|
2257
|
3 |
0 |
if ($name->has_variant)
|
|
2261
|
2 |
1 |
if (defined $variant)
|
|
2289
|
0 |
2 |
unless exists $valid_keys{$key} or exists $valid_keys{$alias} or exists $valid_keys{$name}
|
|
2296
|
3 |
0 |
if defined $return and length $return
|
|
2322
|
0 |
2 |
unless exists $valid_keys{$key} or $valid_keys{$alias} or $valid_keys{$name}
|
|
2323
|
2 |
1 |
unless $valid_keys{$key}
|
|
|
3 |
0 |
unless $valid_keys{$alias}
|
|
|
1 |
2 |
unless $valid_keys{$name}
|
|
|
0 |
3 |
unless &first(sub {
|
|
2329
|
3 |
0 |
if defined $type
|
|
2347
|
2 |
4 |
if $name eq "METRIC"
|
|
2352
|
6 |
0 |
if defined $system
|
|
2373
|
0 |
0 |
if length $key
|
|
2391
|
0 |
3 |
unless $type =~ / \A (?: language | script | region ) \z /ux
|
|
2397
|
0 |
3 |
unless builtin::blessed($locale)
|
|
2405
|
0 |
3 |
unless defined $text
|
|
2428
|
0 |
2 |
unless defined $orientation
|
|
2440
|
0 |
0 |
if ($casing eq 'titlecase-firstword') { }
|
|
|
0 |
0 |
elsif ($casing eq 'titlecase-words') { }
|
|
|
0 |
0 |
elsif ($casing eq 'lowercase-words') { }
|
|
2443
|
0 |
0 |
if ($words[0] =~ / \A \s /ux)
|
|
2476
|
0 |
11 |
if $^V lt v5.18.0
|
|
2562
|
3191 |
160 |
unless (($first) = $string =~ /
|
|
2577
|
3 |
157 |
(!$grapheme_split && length $gc) > $length ? :
|
|
2584
|
101 |
63 |
$rules->[$_][2] ? :
|
|
2588
|
63 |
101 |
unless $split
|
|
2619
|
2 |
5 |
if @parameters == 1
|
|
2621
|
7 |
0 |
unless $parameters[0] eq "index"
|
|
2626
|
2 |
8 |
unless defined $characters
|
|
2627
|
4 |
4 |
if CORE::fc($parameters[1]) =~ /$characters/u
|
|
2646
|
0 |
1 |
unless defined $characters
|
|
2658
|
0 |
6 |
unless defined $ellipsis
|
|
2773
|
0 |
3 |
unless defined $quote
|
|
2781
|
0 |
3 |
unless defined $quote
|
|
2789
|
0 |
3 |
unless defined $quote
|
|
2797
|
0 |
3 |
unless defined $quote
|
|
2815
|
3 |
0 |
if ($inner == -1 or $outer > -1 and $inner > -1 and $outer < $inner)
|
|
2842
|
0 |
1 |
unless defined $info
|
|
2944
|
732 |
12 |
if (exists $bundle->units->{$type}{$what}{$plural})
|
|
2949
|
0 |
12 |
if (exists $bundle->units->{$type}{$what}{'other'})
|
|
2956
|
6 |
732 |
unless ($format)
|
|
2961
|
0 |
6 |
unless $type
|
|
2963
|
0 |
12 |
if (exists $bundle->units->{$type}{$what}{$plural})
|
|
2968
|
0 |
12 |
if (exists $bundle->units->{$type}{$what}{'other'})
|
|
2978
|
6 |
732 |
if (not $format and my($dividend, $divisor) = $what =~ /^(?:[^\-]+-)?(.+)-per-(.+)$/u)
|
|
2983
|
0 |
732 |
unless $format
|
|
2997
|
6 |
0 |
if ($divisor)
|
|
3011
|
0 |
0 |
if (exists $bundle->units->{$type}{'per'}{''})
|
|
3018
|
0 |
0 |
unless ($format)
|
|
3024
|
0 |
0 |
if (exists $bundle->units->{$type}{'per'}{'1'})
|
|
3050
|
0 |
0 |
if (exists $bundle->units->{'long'}{$what}{'name'})
|
|
3060
|
0 |
0 |
unless $type
|
|
3062
|
0 |
0 |
if (exists $bundle->units->{$type}{$what}{'name'})
|
|
3077
|
6 |
0 |
if (exists $bundle->units->{$type}{$what}{'per'})
|
|
3086
|
0 |
0 |
unless $type
|
|
3088
|
0 |
0 |
if (exists $bundle->units->{$type}{$what}{'per'})
|
|
3104
|
0 |
24 |
if (exists $bundle->number_symbols->{$symbols_type}{'alias'})
|
|
3110
|
12 |
12 |
if exists $bundle->number_symbols->{$symbols_type}{'timeSeparator'}
|
|
3133
|
7 |
2 |
if $parsed =~ s/$entry/$self->format_number(shift @data, $num_format);/eu
|
|
3163
|
1 |
1 |
$test_str =~ $bundle->yesstr ? :
|
|
3180
|
1 |
1 |
$test_str =~ $bundle->nostr ? :
|
|
3213
|
0 |
0 |
if (ref $_) { }
|
|
3218
|
0 |
0 |
if ($canload) { }
|
|
3243
|
0 |
0 |
unless pos $text < length $text
|
|
3257
|
0 |
0 |
if ($to_transform)
|
|
3259
|
0 |
0 |
if ($rule->{'type'} eq 'transform') { }
|
|
3278
|
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') { }
|
|
3319
|
0 |
0 |
if length $rule->{'before'} and not $text =~ /$rule->{'before'}\G/u
|
|
3321
|
0 |
0 |
if length $rule->{'after'}
|
|
3323
|
0 |
0 |
if length $rule->{'after'}
|
|
3324
|
0 |
0 |
if ($text =~ s/\G$regex/eval $result;/eu)
|
|
3354
|
1 |
4 |
unless @data
|
|
3355
|
1 |
3 |
if 1 == @data
|
|
3365
|
1 |
2 |
if (my $pattern = $list_data{scalar @data})
|
|
3449
|
0 |
30 |
if (exists $months->{$default_calendar}{'alias'})
|
|
3454
|
7 |
23 |
if (exists $months->{$default_calendar}{$type}{$width}{'alias'})
|
|
3460
|
23 |
0 |
if ($results)
|
|
3467
|
8 |
0 |
if @$result
|
|
3469
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
3529
|
0 |
7 |
if (exists $days->{$default_calendar}{'alias'})
|
|
3534
|
0 |
7 |
if (exists $days->{$default_calendar}{$type}{$width}{'alias'})
|
|
3539
|
7 |
0 |
if keys %$result
|
|
3541
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
3602
|
0 |
6 |
if (exists $quarters->{$default_calendar}{'alias'})
|
|
3607
|
0 |
6 |
if (exists $quarters->{$default_calendar}{$type}{$width}{'alias'})
|
|
3613
|
6 |
0 |
if keys %$result
|
|
3615
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
3680
|
0 |
0 |
$time < 1200 ? :
|
|
3699
|
0 |
38 |
if (exists $am_pm->{$default_calendar}{'alias'})
|
|
3704
|
0 |
38 |
if (exists $am_pm->{$default_calendar}{$type}{'alias'})
|
|
3709
|
9 |
29 |
if (exists $am_pm->{$default_calendar}{$type}{$width}{'alias'})
|
|
3719
|
80 |
92 |
unless exists $return{$_}
|
|
3807
|
0 |
9 |
if (exists $eras->{$default_calendar}{'alias'})
|
|
3812
|
0 |
9 |
if (exists $eras->{$default_calendar}{$width}{'alias'})
|
|
3822
|
9 |
0 |
if keys %$result
|
|
3824
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
3896
|
0 |
9 |
if (exists $date_formats->{'alias'})
|
|
3902
|
9 |
0 |
if $result
|
|
3904
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
3950
|
0 |
9 |
if (exists $time_formats->{$default_calendar}{'alias'})
|
|
3956
|
9 |
0 |
if ($result)
|
|
3962
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
4007
|
0 |
5 |
if (exists $datetime_formats->{$default_calendar}{'alias'})
|
|
4013
|
5 |
0 |
if $result
|
|
4015
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
4093
|
0 |
0 |
if $result
|
|
4126
|
0 |
0 |
if $result
|
|
4141
|
0 |
0 |
if $result
|
|
4149
|
1 |
0 |
$self->time_format_short =~ /h|K/u ? :
|
|
4175
|
0 |
217 |
unless length $regex
|
|
4207
|
345 |
63 |
if $set =~ /^
|
|
|
345 |
63 |
if ($normal)
|
|
4359
|
2 |
2 |
if exists $week_data_hash->{$region_id}
|
|
4363
|
0 |
8 |
unless defined $region_id
|
|
4364
|
2 |
6 |
if exists $week_data_hash->{$region_id}
|
|
4396
|
2 |
1 |
if ($self->_test_default_fw)
|
|
4466
|
0 |
1 |
if ($context eq 'numeric') { }
|
|
4483
|
0 |
2 |
if (exists $month_patterns->{$default_calendar}{'alias'})
|
|
4489
|
1 |
1 |
if (exists $month_patterns->{$default_calendar}{$context}{$width}{'alias'})
|
|
4496
|
1 |
0 |
if $result
|
|
4498
|
0 |
0 |
if ($default_calendar ne "gregorian")
|
|
4504
|
1 |
0 |
if ($result)
|
|
4535
|
0 |
3 |
if (my $alias_calendar = $cyclic_name_set->{$default_calendar}{'alias'})
|
|
4540
|
0 |
3 |
if (my $type_alias = $cyclic_name_set->{$default_calendar}{$type}{'alias'})
|
|
4545
|
1 |
2 |
if (my $width_alias = $cyclic_name_set->{$default_calendar}{$type}{$context}{$width}{'alias'})
|
|
4557
|
1 |
1 |
if @$return
|
|
4680
|
0 |
2 |
if defined $default_currency_format and $default_currency_format ne "standard" and $default_currency_format ne "accounting"
|
|
4693
|
0 |
22 |
if (exists $format->{$default_numbering_system}{'alias'})
|
|
4698
|
0 |
22 |
if (exists $format->{$default_numbering_system}{'pattern'}{'default'}{$default_currency_format}{'alias'})
|
|
4704
|
22 |
0 |
if exists $format->{$default_numbering_system}{'pattern'}{'default'}{$default_currency_format}
|
|
4707
|
10 |
12 |
if $default_currency_format eq "account"
|
|
4708
|
0 |
22 |
if ($default_currency_format eq "accounting" and not $format->{$default_numbering_system}{'pattern'}{'default'}{'accounting'}{'positive'})
|
|
4715
|
11 |
11 |
defined $format->{$default_numbering_system}{'pattern'}{'default'}{$default_currency_format}{'negative'} ? :
|
|
4800
|
8 |
9 |
if $self->_test_default_cu
|
|
4804
|
0 |
9 |
unless ($region_id)
|
|
4811
|
9 |
0 |
if exists $default_currencies->{$region_id}
|
|
4815
|
0 |
0 |
unless $region_id
|
|
4816
|
0 |
0 |
if (exists $default_currencies->{$region_id})
|
|
4838
|
17 |
0 |
if $symbol
|
|
4950
|
0 |
1 |
if @_ % 2
|
|
4960
|
0 |
1 |
if @_ % 2
|
|
4967
|
0 |
8 |
unless grep {$_ eq $plural;} "zero", "one", "two", "few", "many", "other"
|
|
4991
|
2 |
7 |
unless $text =~ /\[/u
|
|
4999
|
2 |
6 |
if (length $raw)
|
|
5013
|
0 |
8 |
unless length $text
|
|
5018
|
0 |
8 |
if not length $method and length $text
|
|
5022
|
0 |
8 |
if $method =~ /^\[.*\[/u
|
|
5026
|
0 |
8 |
if (my($number) = $method =~ / \[ \s* _ [0-9]+ \s* \] /ux)
|
|
5027
|
0 |
0 |
if ($number == 0) { }
|
|
5046
|
6 |
2 |
if ($is_plural)
|
|
5052
|
0 |
8 |
unless exists $methods{lc $method}
|
|
5060
|
8 |
0 |
scalar @params ? :
|
|
|
8 |
0 |
scalar @params ? :
|
|
5078
|
0 |
0 |
unless grep {$type eq $_;} "ordinal", "cardinal"
|
|
5081
|
0 |
0 |
unless grep {$gender eq $_;} "masculine", "feminine", "nuter"
|
|
5083
|
0 |
0 |
defined $declention ? :
|
|
5093
|
0 |
0 |
if exists $formats{$name}
|
|
5135
|
0 |
3 |
if (ref $params[-1] eq "HASH")
|
|
5182
|
0 |
0 |
if $override = $bundle->collation->{$type}
|
|
5185
|
0 |
0 |
if ($type ne "standard" and not $override)
|
|
5187
|
0 |
0 |
if $override = $bundle->collation->{'standard'}
|
|
5197
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'co'}
|
|
5202
|
0 |
0 |
if $collation_type = $bundle->collation_type
|
|
5211
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'ka'}
|
|
5216
|
0 |
0 |
if $collation_alternate = $bundle->collation_alternate
|
|
5225
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kb'}
|
|
5230
|
0 |
0 |
if $collation_backwards = $bundle->collation_backwards
|
|
5239
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kc'}
|
|
5244
|
0 |
0 |
if $collation_case_level = $bundle->collation_case_level
|
|
5253
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kf'}
|
|
5258
|
0 |
0 |
if $collation_case_ordering = $bundle->collation_case_ordering
|
|
5267
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kk'}
|
|
5272
|
0 |
0 |
if $collation_normalization = $bundle->collation_normalization
|
|
5281
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kn'}
|
|
5286
|
0 |
0 |
if $collation_numeric = $bundle->collation_numeric
|
|
5295
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kr'}
|
|
5300
|
0 |
0 |
if ref($collation_reorder = $bundle->collation_reorder) and @$collation_reorder
|
|
5310
|
0 |
1 |
if ($collation_strength)
|
|
5312
|
0 |
0 |
unless $collation_strength + 0
|
|
5320
|
0 |
0 |
if $collation_strength = $bundle->collation_strength
|
|
5329
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kv'}
|
|
5334
|
0 |
0 |
if $collation_max_variable = $bundle->collation_max_variable
|