| 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 $territory
|
|
615
|
205 |
89 |
$_ ? :
|
|
622
|
16 |
82 |
$self->has_likely_subtag ? :
|
|
|
16 |
82 |
$self->has_likely_subtag ? :
|
|
|
16 |
82 |
$self->has_likely_subtag ? :
|
|
629
|
205 |
89 |
unless $path[$i] eq 'und' or $path[$i] eq 'Any'
|
|
643
|
78 |
182 |
if (Class::Load::try_load_class($module_name, {-'version', $VERSION})) { }
|
|
657
|
0 |
97 |
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 |
90 |
if (@_ > 1 and ref $_[-1] eq 'HASH')
|
|
1156
|
69 |
21 |
if (1 == @_ and not ref $_[0])
|
|
1167
|
110 |
166 |
unless defined $_
|
|
1179
|
21 |
69 |
unless (keys %args)
|
|
1181
|
0 |
21 |
ref $_[0] ? :
|
|
1186
|
1 |
89 |
if (defined $args{'extensions'} and not ref $args{'extensions'})
|
|
1194
|
86 |
4 |
if defined $args{'language_id'}
|
|
1195
|
74 |
16 |
if defined $args{'script_id'}
|
|
1196
|
76 |
14 |
if defined $args{'territory_id'}
|
|
1197
|
74 |
16 |
if defined $args{'variant_id'}
|
|
1321
|
21 |
7 |
if ($self->script_id)
|
|
1325
|
21 |
7 |
if ($self->territory_id)
|
|
1329
|
3 |
25 |
if ($self->variant_id)
|
|
1333
|
0 |
28 |
if (defined $self->extensions)
|
|
1348
|
0 |
0 |
if ($self->language_id eq 'en') { }
|
|
1421
|
3190 |
0 |
$self->has_likely_subtag ? :
|
|
1426
|
3113 |
77 |
if ($self->method_cache->{$id}{$method_name})
|
|
1429
|
2363 |
750 |
wantarray ? :
|
|
1433
|
77 |
308 |
if $module eq 'Moose::Object'
|
|
1434
|
116 |
192 |
if ($module->meta->has_method($method_name))
|
|
1439
|
0 |
77 |
unless $self->method_cache->{$id}{$method_name}
|
|
1442
|
64 |
13 |
wantarray ? :
|
|
1467
|
1 |
0 |
$name->territory_id ? :
|
|
|
1 |
5 |
ref $name ? :
|
|
1475
|
4 |
2 |
if defined $display_name
|
|
1479
|
2 |
0 |
unless (ref $name)
|
|
1508
|
5 |
3 |
ref $name ? :
|
|
1512
|
7 |
1 |
if ($code)
|
|
1515
|
7 |
0 |
if (defined $display_name)
|
|
1523
|
1 |
7 |
unless (defined $language)
|
|
1526
|
1 |
0 |
if (defined $display_name)
|
|
1573
|
3 |
4 |
unless (ref $name)
|
|
1577
|
3 |
4 |
if (ref $name and not $name->script_id)
|
|
1583
|
3 |
1 |
if ($name)
|
|
1586
|
3 |
0 |
if (defined $script)
|
|
1592
|
1 |
3 |
unless ($script)
|
|
1595
|
1 |
0 |
if (defined $script)
|
|
1641
|
5 |
4 |
unless (ref $name)
|
|
1645
|
0 |
9 |
if (ref $name and not $name->territory_id)
|
|
1651
|
7 |
2 |
if ($name)
|
|
1654
|
7 |
0 |
if (defined $territory)
|
|
1660
|
2 |
7 |
unless (defined $territory)
|
|
1663
|
2 |
0 |
if (defined $territory)
|
|
1709
|
4 |
3 |
unless (ref $name)
|
|
1713
|
3 |
3 |
unless $name->variant_id
|
|
1715
|
3 |
0 |
if ($name->has_variant)
|
|
1719
|
2 |
1 |
if (defined $variant)
|
|
1747
|
0 |
2 |
unless exists $valid_keys{$key} or exists $valid_keys{$alias} or exists $valid_keys{$name}
|
|
1754
|
3 |
0 |
if defined $return and length $return
|
|
1780
|
0 |
2 |
unless exists $valid_keys{$key} or $valid_keys{$alias} or $valid_keys{$name}
|
|
1781
|
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};})
|
|
1787
|
3 |
0 |
if defined $type
|
|
1805
|
2 |
4 |
if $name eq 'METRIC'
|
|
1810
|
6 |
0 |
if defined $system
|
|
1831
|
1 |
0 |
if length $key
|
|
1853
|
0 |
3 |
unless &blessed($locale)
|
|
1855
|
0 |
3 |
unless $type =~ / \A (?: language | script | territory ) \z /msux
|
|
1863
|
0 |
3 |
unless defined $text
|
|
1886
|
0 |
2 |
unless defined $orientation
|
|
1898
|
0 |
0 |
if ($casing eq 'titlecase-firstword') { }
|
|
|
0 |
0 |
elsif ($casing eq 'titlecase-words') { }
|
|
|
0 |
0 |
elsif ($casing eq 'lowercase-words') { }
|
|
1901
|
0 |
0 |
if ($words[0] =~ / \A \s /msux)
|
|
1934
|
0 |
10 |
if $^V lt v5.18.0
|
|
2020
|
2506 |
160 |
unless (($first) = $string =~ /
\G
($rule->[0])
$rule->[1]
/msux)
|
|
2035
|
3 |
157 |
(!$grapheme_split && length $gc) > $length ? :
|
|
2042
|
105 |
59 |
$rules->[$_][2] ? :
|
|
2046
|
59 |
105 |
unless $split
|
|
2077
|
2 |
4 |
if @parameters == 1
|
|
2079
|
6 |
0 |
unless $parameters[0] eq 'index'
|
|
2084
|
2 |
7 |
unless defined $characters
|
|
2085
|
3 |
4 |
if CORE::fc($parameters[1]) =~ /$characters/u
|
|
2104
|
0 |
1 |
unless defined $characters
|
|
2116
|
0 |
6 |
unless defined $ellipsis
|
|
2231
|
0 |
3 |
unless defined $quote
|
|
2239
|
0 |
3 |
unless defined $quote
|
|
2247
|
0 |
3 |
unless defined $quote
|
|
2255
|
0 |
3 |
unless defined $quote
|
|
2273
|
3 |
0 |
if ($inner == -1 or $outer > -1 and $inner > -1 and $outer < $inner)
|
|
2300
|
0 |
1 |
unless defined $info
|
|
2392
|
728 |
20 |
if (exists $bundle->units->{$type}{$what}{$plural})
|
|
2397
|
0 |
20 |
if (exists $bundle->units->{$type}{$what}{'other'})
|
|
2404
|
10 |
728 |
unless ($format)
|
|
2409
|
0 |
10 |
unless $type
|
|
2411
|
4 |
12 |
if (exists $bundle->units->{$type}{$what}{$plural})
|
|
2416
|
0 |
12 |
if (exists $bundle->units->{$type}{$what}{'other'})
|
|
2426
|
6 |
732 |
if (not $format and my($dividend, $divisor) = $what =~ /^(.+)-per-(.+)$/u)
|
|
2431
|
0 |
732 |
unless $format
|
|
2445
|
6 |
0 |
if ($divisor)
|
|
2459
|
0 |
0 |
if (exists $bundle->units->{$type}{'per'}{''})
|
|
2466
|
0 |
0 |
unless ($format)
|
|
2472
|
0 |
0 |
if (exists $bundle->units->{$type}{'per'}{'1'})
|
|
2498
|
0 |
0 |
if (exists $bundle->units->{'long'}{$what}{'name'})
|
|
2508
|
0 |
0 |
unless $type
|
|
2510
|
0 |
0 |
if (exists $bundle->units->{$type}{$what}{'name'})
|
|
2525
|
4 |
4 |
if (exists $bundle->units->{$type}{$what}{'per'})
|
|
2534
|
0 |
2 |
unless $type
|
|
2536
|
2 |
0 |
if (exists $bundle->units->{$type}{$what}{'per'})
|
|
2552
|
0 |
24 |
if (exists $bundle->number_symbols->{$symbols_type}{'alias'})
|
|
2558
|
12 |
12 |
if exists $bundle->number_symbols->{$symbols_type}{'timeSeparator'}
|
|
2581
|
7 |
2 |
if $parsed =~ s/$entry/$self->format_number(shift @data, $num_format);/eu
|
|
2611
|
1 |
1 |
$test_str =~ $bundle->yesstr ? :
|
|
2628
|
1 |
1 |
$test_str =~ $bundle->nostr ? :
|
|
2659
|
0 |
0 |
ref $_ ? :
|
|
2664
|
0 |
0 |
if $@
|
|
2665
|
0 |
0 |
if $@
|
|
2684
|
0 |
0 |
unless pos $text < length $text
|
|
2698
|
0 |
0 |
if ($to_transform)
|
|
2700
|
0 |
0 |
if ($rule->{'type'} eq 'transform') { }
|
|
2719
|
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') { }
|
|
2760
|
0 |
0 |
if length $rule->{'before'} and not $text =~ /$rule->{'before'}\G/u
|
|
2762
|
0 |
0 |
if length $rule->{'after'}
|
|
2764
|
0 |
0 |
if length $rule->{'after'}
|
|
2765
|
0 |
0 |
if ($text =~ s/\G$regex/eval $result;/eu)
|
|
2795
|
1 |
4 |
unless @data
|
|
2796
|
1 |
3 |
if 1 == @data
|
|
2806
|
1 |
2 |
if (my $pattern = $list_data{scalar @data})
|
|
2889
|
0 |
16 |
if (exists $months->{$default_calendar}{'alias'})
|
|
2894
|
4 |
12 |
if (exists $months->{$default_calendar}{$type}{$width}{'alias'})
|
|
2900
|
8 |
4 |
if defined $result
|
|
2902
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
2962
|
0 |
13 |
if (exists $days->{$default_calendar}{'alias'})
|
|
2967
|
3 |
10 |
if (exists $days->{$default_calendar}{$type}{$width}{'alias'})
|
|
2972
|
7 |
3 |
if keys %$result
|
|
2974
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3035
|
0 |
12 |
if (exists $quarters->{$default_calendar}{'alias'})
|
|
3040
|
3 |
9 |
if (exists $quarters->{$default_calendar}{$type}{$width}{'alias'})
|
|
3046
|
6 |
3 |
if keys %$result
|
|
3048
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3113
|
0 |
0 |
$time < 1200 ? :
|
|
3132
|
0 |
38 |
if (exists $am_pm->{$default_calendar}{'alias'})
|
|
3137
|
0 |
38 |
if (exists $am_pm->{$default_calendar}{$type}{'alias'})
|
|
3142
|
9 |
29 |
if (exists $am_pm->{$default_calendar}{$type}{$width}{'alias'})
|
|
3152
|
80 |
60 |
unless exists $return{$_}
|
|
3240
|
0 |
9 |
if (exists $eras->{$default_calendar}{'alias'})
|
|
3245
|
0 |
9 |
if (exists $eras->{$default_calendar}{$width}{'alias'})
|
|
3255
|
9 |
0 |
if keys %$result
|
|
3257
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3329
|
0 |
9 |
if (exists $date_formats->{'alias'})
|
|
3335
|
9 |
0 |
if $result
|
|
3337
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3383
|
0 |
9 |
if (exists $time_formats->{$default_calendar}{'alias'})
|
|
3389
|
9 |
0 |
if ($result)
|
|
3395
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3440
|
0 |
5 |
if (exists $datetime_formats->{$default_calendar}{'alias'})
|
|
3446
|
5 |
0 |
if $result
|
|
3448
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3526
|
0 |
0 |
if $result
|
|
3559
|
0 |
0 |
if $result
|
|
3574
|
0 |
0 |
if $result
|
|
3582
|
1 |
0 |
$self->time_format_short =~ /h|K/u ? :
|
|
3608
|
0 |
163 |
unless length $regex
|
|
3640
|
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)
|
|
3812
|
3 |
2 |
if exists $week_data_hash->{$territory_id}
|
|
3816
|
0 |
8 |
unless defined $territory_id
|
|
3817
|
2 |
6 |
if exists $week_data_hash->{$territory_id}
|
|
3913
|
0 |
1 |
if ($context eq 'numeric') { }
|
|
3930
|
0 |
2 |
if (exists $month_patterns->{$default_calendar}{'alias'})
|
|
3936
|
1 |
1 |
if (exists $month_patterns->{$default_calendar}{$context}{$width}{'alias'})
|
|
3943
|
1 |
0 |
if $result
|
|
3945
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3951
|
1 |
0 |
if ($result)
|
|
3982
|
0 |
3 |
if (my $alias_calendar = $cyclic_name_set->{$default_calendar}{'alias'})
|
|
3987
|
0 |
3 |
if (my $type_alias = $cyclic_name_set->{$default_calendar}{$type}{'alias'})
|
|
3992
|
1 |
2 |
if (my $width_alias = $cyclic_name_set->{$default_calendar}{$type}{$context}{$width}{'alias'})
|
|
4004
|
1 |
1 |
if @$return
|
|
4183
|
0 |
1 |
unless ($territory_id)
|
|
4190
|
1 |
0 |
if exists $default_currencies->{$territory_id}
|
|
4194
|
0 |
0 |
unless $territory_id
|
|
4195
|
0 |
0 |
if exists $default_currencies->{$territory_id}
|
|
4214
|
1 |
0 |
if $symbol
|
|
4276
|
0 |
0 |
if $override = $bundle->collation->{$type}
|
|
4279
|
0 |
0 |
if ($type ne 'standard' and not $override)
|
|
4281
|
0 |
0 |
if $override = $bundle->collation->{'standard'}
|
|
4291
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'co'}
|
|
4296
|
0 |
0 |
if $collation_type = $bundle->collation_type
|
|
4305
|
0 |
0 |
if ref $self->extensions and $self->extentions->{'ka'}
|
|
4310
|
0 |
0 |
if $collation_alternate = $bundle->collation_alternate
|
|
4319
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kb'}
|
|
4324
|
0 |
0 |
if $collation_backwards = $bundle->collation_backwards
|
|
4333
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kc'}
|
|
4338
|
0 |
0 |
if $collation_case_level = $bundle->collation_case_level
|
|
4347
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kf'}
|
|
4352
|
0 |
0 |
if $collation_case_ordering = $bundle->collation_case_ordering
|
|
4361
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kk'}
|
|
4366
|
0 |
0 |
if $collation_normalization = $bundle->collation_normalization
|
|
4375
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kn'}
|
|
4380
|
0 |
0 |
if $collation_numeric = $bundle->collation_numeric
|
|
4389
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kr'}
|
|
4394
|
0 |
0 |
if ref($collation_reorder = $bundle->collation_reorder) and @$collation_reorder
|
|
4404
|
0 |
0 |
if ($collation_strength)
|
|
4406
|
0 |
0 |
unless $collation_strength + 0
|
|
4414
|
0 |
0 |
if $collation_strength = $bundle->collation_strength
|
|
4423
|
0 |
0 |
if ref $self->extensions and $self->extensions->{'kv'}
|
|
4428
|
0 |
0 |
if $collation_max_variable = $bundle->collation_max_variable
|