| line |
true |
false |
branch |
|
66
|
20 |
0 |
if (defined &CORE::fc) { }
|
|
545
|
0 |
0 |
unless $language eq 'und'
|
|
570
|
0 |
0 |
if $script
|
|
597
|
0 |
0 |
if $region
|
|
615
|
215 |
91 |
$_ ? :
|
|
622
|
16 |
86 |
$self->has_likely_subtag ? :
|
|
|
16 |
86 |
$self->has_likely_subtag ? :
|
|
|
16 |
86 |
$self->has_likely_subtag ? :
|
|
629
|
215 |
91 |
unless $path[$i] eq 'und' or $path[$i] eq 'Any'
|
|
643
|
82 |
184 |
if (Class::Load::try_load_class($module_name, {-'version', $VERSION})) { }
|
|
657
|
0 |
101 |
if (ref $module eq 'Locale::CLDR::Locales::Root')
|
|
1096
|
4 |
142 |
unless defined $name
|
|
1097
|
0 |
142 |
unless (defined $value)
|
|
1123
|
0 |
98 |
unless defined $rules{$rule_number}
|
|
1129
|
163 |
33 |
if ($operand =~ / \S /msux) { }
|
|
1138
|
84 |
14 |
$opp eq "\327" ? :
|
|
1152
|
0 |
94 |
if (@_ > 1 and ref $_[-1] eq 'HASH')
|
|
1156
|
73 |
21 |
if (1 == @_ and not ref $_[0])
|
|
1167
|
116 |
176 |
unless defined $_
|
|
1179
|
21 |
73 |
unless (keys %args)
|
|
1181
|
0 |
21 |
ref $_[0] ? :
|
|
1186
|
3 |
91 |
if (defined $args{'extensions'} and not ref $args{'extensions'})
|
|
1194
|
90 |
4 |
if defined $args{'language_id'}
|
|
1195
|
78 |
16 |
if defined $args{'script_id'}
|
|
1196
|
80 |
14 |
if defined $args{'region_id'}
|
|
1197
|
78 |
16 |
if defined $args{'variant_id'}
|
|
1337
|
66 |
2 |
if ($self->_test_default_ca) { }
|
|
1347
|
2 |
8 |
if ($default) { }
|
|
1363
|
10 |
0 |
if ($self->_test_default_cf) { }
|
|
1381
|
23 |
7 |
if ($self->script_id)
|
|
1385
|
23 |
7 |
if ($self->region_id)
|
|
1389
|
3 |
27 |
if ($self->variant_id)
|
|
1393
|
0 |
30 |
if (defined $self->extensions)
|
|
1408
|
0 |
0 |
if ($self->language_id eq 'en') { }
|
|
1481
|
3248 |
0 |
$self->has_likely_subtag ? :
|
|
1486
|
3170 |
78 |
if ($self->method_cache->{$id}{$method_name})
|
|
1489
|
2406 |
764 |
wantarray ? :
|
|
1493
|
78 |
312 |
if $module eq 'Moose::Object'
|
|
1494
|
118 |
194 |
if ($module->meta->has_method($method_name))
|
|
1499
|
0 |
78 |
unless $self->method_cache->{$id}{$method_name}
|
|
1502
|
65 |
13 |
wantarray ? :
|
|
1527
|
1 |
0 |
$name->region_id ? :
|
|
|
1 |
5 |
ref $name ? :
|
|
1535
|
4 |
2 |
if defined $display_name
|
|
1539
|
2 |
0 |
unless (ref $name)
|
|
1568
|
5 |
3 |
ref $name ? :
|
|
1572
|
7 |
1 |
if ($code)
|
|
1575
|
7 |
0 |
if (defined $display_name)
|
|
1583
|
1 |
7 |
unless (defined $language)
|
|
1586
|
1 |
0 |
if (defined $display_name)
|
|
1633
|
3 |
4 |
unless (ref $name)
|
|
1637
|
3 |
4 |
if (ref $name and not $name->script_id)
|
|
1643
|
3 |
1 |
if ($name)
|
|
1646
|
3 |
0 |
if (defined $script)
|
|
1652
|
1 |
3 |
unless ($script)
|
|
1655
|
1 |
0 |
if (defined $script)
|
|
1701
|
5 |
4 |
unless (ref $name)
|
|
1705
|
0 |
9 |
if (ref $name and not $name->region_id)
|
|
1711
|
7 |
2 |
if ($name)
|
|
1714
|
7 |
0 |
if (defined $region)
|
|
1720
|
2 |
7 |
unless (defined $region)
|
|
1723
|
2 |
0 |
if (defined $region)
|
|
1769
|
4 |
3 |
unless (ref $name)
|
|
1773
|
3 |
3 |
unless $name->variant_id
|
|
1775
|
3 |
0 |
if ($name->has_variant)
|
|
1779
|
2 |
1 |
if (defined $variant)
|
|
1807
|
0 |
2 |
unless exists $valid_keys{$key} or exists $valid_keys{$alias} or exists $valid_keys{$name}
|
|
1814
|
3 |
0 |
if defined $return and length $return
|
|
1840
|
0 |
2 |
unless exists $valid_keys{$key} or $valid_keys{$alias} or $valid_keys{$name}
|
|
1841
|
2 |
1 |
unless $valid_keys{$key}
|
|
|
3 |
0 |
unless $valid_keys{$alias}
|
|
|
1 |
2 |
unless $valid_keys{$name}
|
|
|
0 |
3 |
unless &first(sub {
$_ eq $type;
}
, @{[] unless $valid_keys{$key};}, @{[] unless $valid_keys{$alias};}, @{[] unless $valid_keys{$name};})
|
|
1847
|
3 |
0 |
if defined $type
|
|
1865
|
2 |
4 |
if $name eq 'METRIC'
|
|
1870
|
6 |
0 |
if defined $system
|
|
1891
|
1 |
0 |
if length $key
|
|
1913
|
0 |
3 |
unless &blessed($locale)
|
|
1915
|
0 |
3 |
unless $type =~ / \A (?: language | script | region ) \z /msux
|
|
1923
|
0 |
3 |
unless defined $text
|
|
1946
|
0 |
2 |
unless defined $orientation
|
|
1958
|
0 |
0 |
if ($casing eq 'titlecase-firstword') { }
|
|
|
0 |
0 |
elsif ($casing eq 'titlecase-words') { }
|
|
|
0 |
0 |
elsif ($casing eq 'lowercase-words') { }
|
|
1961
|
0 |
0 |
if ($words[0] =~ / \A \s /msux)
|
|
1994
|
0 |
10 |
if $^V lt v5.18.0
|
|
2080
|
2506 |
160 |
unless (($first) = $string =~ /
\G
($rule->[0])
$rule->[1]
/msux)
|
|
2095
|
3 |
157 |
(!$grapheme_split && length $gc) > $length ? :
|
|
2102
|
105 |
59 |
$rules->[$_][2] ? :
|
|
2106
|
59 |
105 |
unless $split
|
|
2137
|
2 |
4 |
if @parameters == 1
|
|
2139
|
6 |
0 |
unless $parameters[0] eq 'index'
|
|
2144
|
2 |
7 |
unless defined $characters
|
|
2145
|
3 |
4 |
if CORE::fc($parameters[1]) =~ /$characters/u
|
|
2164
|
0 |
1 |
unless defined $characters
|
|
2176
|
0 |
6 |
unless defined $ellipsis
|
|
2291
|
0 |
3 |
unless defined $quote
|
|
2299
|
0 |
3 |
unless defined $quote
|
|
2307
|
0 |
3 |
unless defined $quote
|
|
2315
|
0 |
3 |
unless defined $quote
|
|
2333
|
3 |
0 |
if ($inner == -1 or $outer > -1 and $inner > -1 and $outer < $inner)
|
|
2360
|
0 |
1 |
unless defined $info
|
|
2452
|
728 |
20 |
if (exists $bundle->units->{$type}{$what}{$plural})
|
|
2457
|
0 |
20 |
if (exists $bundle->units->{$type}{$what}{'other'})
|
|
2464
|
10 |
728 |
unless ($format)
|
|
2469
|
0 |
10 |
unless $type
|
|
2471
|
4 |
12 |
if (exists $bundle->units->{$type}{$what}{$plural})
|
|
2476
|
0 |
12 |
if (exists $bundle->units->{$type}{$what}{'other'})
|
|
2486
|
6 |
732 |
if (not $format and my($dividend, $divisor) = $what =~ /^(.+)-per-(.+)$/u)
|
|
2491
|
0 |
732 |
unless $format
|
|
2505
|
6 |
0 |
if ($divisor)
|
|
2519
|
0 |
0 |
if (exists $bundle->units->{$type}{'per'}{''})
|
|
2526
|
0 |
0 |
unless ($format)
|
|
2532
|
0 |
0 |
if (exists $bundle->units->{$type}{'per'}{'1'})
|
|
2558
|
0 |
0 |
if (exists $bundle->units->{'long'}{$what}{'name'})
|
|
2568
|
0 |
0 |
unless $type
|
|
2570
|
0 |
0 |
if (exists $bundle->units->{$type}{$what}{'name'})
|
|
2585
|
4 |
4 |
if (exists $bundle->units->{$type}{$what}{'per'})
|
|
2594
|
0 |
2 |
unless $type
|
|
2596
|
2 |
0 |
if (exists $bundle->units->{$type}{$what}{'per'})
|
|
2612
|
0 |
24 |
if (exists $bundle->number_symbols->{$symbols_type}{'alias'})
|
|
2618
|
12 |
12 |
if exists $bundle->number_symbols->{$symbols_type}{'timeSeparator'}
|
|
2641
|
7 |
2 |
if $parsed =~ s/$entry/$self->format_number(shift @data, $num_format);/eu
|
|
2671
|
1 |
1 |
$test_str =~ $bundle->yesstr ? :
|
|
2688
|
1 |
1 |
$test_str =~ $bundle->nostr ? :
|
|
2719
|
0 |
0 |
ref $_ ? :
|
|
2724
|
0 |
0 |
if $@
|
|
2725
|
0 |
0 |
if $@
|
|
2744
|
0 |
0 |
unless pos $text < length $text
|
|
2758
|
0 |
0 |
if ($to_transform)
|
|
2760
|
0 |
0 |
if ($rule->{'type'} eq 'transform') { }
|
|
2779
|
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') { }
|
|
2820
|
0 |
0 |
if length $rule->{'before'} and not $text =~ /$rule->{'before'}\G/u
|
|
2822
|
0 |
0 |
if length $rule->{'after'}
|
|
2824
|
0 |
0 |
if length $rule->{'after'}
|
|
2825
|
0 |
0 |
if ($text =~ s/\G$regex/eval $result;/eu)
|
|
2855
|
1 |
4 |
unless @data
|
|
2856
|
1 |
3 |
if 1 == @data
|
|
2866
|
1 |
2 |
if (my $pattern = $list_data{scalar @data})
|
|
2949
|
0 |
16 |
if (exists $months->{$default_calendar}{'alias'})
|
|
2954
|
4 |
12 |
if (exists $months->{$default_calendar}{$type}{$width}{'alias'})
|
|
2960
|
8 |
4 |
if defined $result
|
|
2962
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3022
|
0 |
13 |
if (exists $days->{$default_calendar}{'alias'})
|
|
3027
|
3 |
10 |
if (exists $days->{$default_calendar}{$type}{$width}{'alias'})
|
|
3032
|
7 |
3 |
if keys %$result
|
|
3034
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3095
|
0 |
12 |
if (exists $quarters->{$default_calendar}{'alias'})
|
|
3100
|
3 |
9 |
if (exists $quarters->{$default_calendar}{$type}{$width}{'alias'})
|
|
3106
|
6 |
3 |
if keys %$result
|
|
3108
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3173
|
0 |
0 |
$time < 1200 ? :
|
|
3192
|
0 |
38 |
if (exists $am_pm->{$default_calendar}{'alias'})
|
|
3197
|
0 |
38 |
if (exists $am_pm->{$default_calendar}{$type}{'alias'})
|
|
3202
|
9 |
29 |
if (exists $am_pm->{$default_calendar}{$type}{$width}{'alias'})
|
|
3212
|
80 |
60 |
unless exists $return{$_}
|
|
3300
|
0 |
9 |
if (exists $eras->{$default_calendar}{'alias'})
|
|
3305
|
0 |
9 |
if (exists $eras->{$default_calendar}{$width}{'alias'})
|
|
3315
|
9 |
0 |
if keys %$result
|
|
3317
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3389
|
0 |
9 |
if (exists $date_formats->{'alias'})
|
|
3395
|
9 |
0 |
if $result
|
|
3397
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3443
|
0 |
9 |
if (exists $time_formats->{$default_calendar}{'alias'})
|
|
3449
|
9 |
0 |
if ($result)
|
|
3455
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3500
|
0 |
5 |
if (exists $datetime_formats->{$default_calendar}{'alias'})
|
|
3506
|
5 |
0 |
if $result
|
|
3508
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3586
|
0 |
0 |
if $result
|
|
3619
|
0 |
0 |
if $result
|
|
3634
|
0 |
0 |
if $result
|
|
3642
|
1 |
0 |
$self->time_format_short =~ /h|K/u ? :
|
|
3668
|
0 |
163 |
unless length $regex
|
|
3700
|
99 |
0 |
if $set =~ /^
\s* # Possible white space
\[ # Opening set
^? # Possible negation
(?: # One of
[^\[\]]++ # Not an open or close set
| # Or
(?<=\\)[\[\]] # An open or close set preceded by
| # Or
(?:
\s* # Possible white space
(?&posix) # A posix class
(?! # Not followed by
\s* # Possible white space
[&-] # A Unicode regex op
\s* # Possible white space
\[ # A set opener
)
)
)+
\] # Close the set
\s* # Possible white space
$
$posix
/ux
|
|
|
99 |
0 |
if ($normal)
|
|
3872
|
3 |
2 |
if exists $week_data_hash->{$region_id}
|
|
3876
|
0 |
8 |
unless defined $region_id
|
|
3877
|
2 |
6 |
if exists $week_data_hash->{$region_id}
|
|
3973
|
0 |
1 |
if ($context eq 'numeric') { }
|
|
3990
|
0 |
2 |
if (exists $month_patterns->{$default_calendar}{'alias'})
|
|
3996
|
1 |
1 |
if (exists $month_patterns->{$default_calendar}{$context}{$width}{'alias'})
|
|
4003
|
1 |
0 |
if $result
|
|
4005
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
4011
|
1 |
0 |
if ($result)
|
|
4042
|
0 |
3 |
if (my $alias_calendar = $cyclic_name_set->{$default_calendar}{'alias'})
|
|
4047
|
0 |
3 |
if (my $type_alias = $cyclic_name_set->{$default_calendar}{$type}{'alias'})
|
|
4052
|
1 |
2 |
if (my $width_alias = $cyclic_name_set->{$default_calendar}{$type}{$context}{$width}{'alias'})
|
|
4064
|
1 |
1 |
if @$return
|
|
4193
|
0 |
2 |
if defined $default_currency_format and $default_currency_format ne 'standard' and $default_currency_format ne 'account'
|
|
4206
|
0 |
12 |
if (exists $format->{$default_numbering_system}{'alias'})
|
|
4211
|
0 |
12 |
if (exists $format->{$default_numbering_system}{'pattern'}{'default'}{$default_currency_format}{'alias'})
|
|
4217
|
12 |
0 |
if exists $format->{$default_numbering_system}{'pattern'}{'default'}{$default_currency_format}
|
|
4220
|
6 |
6 |
if $default_currency_format eq 'account'
|
|
4226
|
6 |
6 |
defined $format->{$default_numbering_system}{'pattern'}{'default'}{$default_currency_format}{'negative'} ? :
|
|
4308
|
0 |
9 |
unless ($region_id)
|
|
4315
|
9 |
0 |
if exists $default_currencies->{$region_id}
|
|
4319
|
0 |
0 |
unless $region_id
|
|
4320
|
0 |
0 |
if exists $default_currencies->{$region_id}
|
|
4339
|
9 |
0 |
if $symbol
|
|
4401
|
0 |
0 |
if $override = $bundle->collation->{$type}
|
|
4404
|
0 |
0 |
if ($type ne 'standard' and not $override)
|
|
4406
|
0 |
0 |
if $override = $bundle->collation->{'standard'}
|
|
4416
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'co'}
|
|
4421
|
0 |
0 |
if $collation_type = $bundle->collation_type
|
|
4430
|
0 |
0 |
if ref $self->extensions and $self->extentions->{'ka'}
|
|
4435
|
0 |
0 |
if $collation_alternate = $bundle->collation_alternate
|
|
4444
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kb'}
|
|
4449
|
0 |
0 |
if $collation_backwards = $bundle->collation_backwards
|
|
4458
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kc'}
|
|
4463
|
0 |
0 |
if $collation_case_level = $bundle->collation_case_level
|
|
4472
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kf'}
|
|
4477
|
0 |
0 |
if $collation_case_ordering = $bundle->collation_case_ordering
|
|
4486
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kk'}
|
|
4491
|
0 |
0 |
if $collation_normalization = $bundle->collation_normalization
|
|
4500
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kn'}
|
|
4505
|
0 |
0 |
if $collation_numeric = $bundle->collation_numeric
|
|
4514
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kr'}
|
|
4519
|
0 |
0 |
if ref($collation_reorder = $bundle->collation_reorder) and @$collation_reorder
|
|
4529
|
0 |
0 |
if ($collation_strength)
|
|
4531
|
0 |
0 |
unless $collation_strength + 0
|
|
4539
|
0 |
0 |
if $collation_strength = $bundle->collation_strength
|
|
4548
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kv'}
|
|
4553
|
0 |
0 |
if $collation_max_variable = $bundle->collation_max_variable
|