| 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
|
|
614
|
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 |
97 |
unless defined $rules{$rule_number}
|
|
1129
|
161 |
33 |
if ($operand =~ / \S /msux) { }
|
|
1138
|
83 |
14 |
$opp eq '×' ? :
|
|
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 |
8 |
if ($self->script_id)
|
|
1325
|
21 |
8 |
if ($self->territory_id)
|
|
1329
|
3 |
26 |
if ($self->variant_id)
|
|
1333
|
0 |
29 |
if (defined $self->extensions)
|
|
1348
|
0 |
0 |
if ($self->language_id eq 'en') { }
|
|
1421
|
3188 |
0 |
$self->has_likely_subtag ? :
|
|
1426
|
3111 |
77 |
if ($self->method_cache->{$id}{$method_name})
|
|
1428
|
2361 |
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}
|
|
1441
|
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
|
2495 |
161 |
unless (($first) = $string =~ /
\G
($$rule[0])
$$rule[1]
/msux)
|
|
2035
|
3 |
158 |
(!$grapheme_split && length $gc) > $length ? :
|
|
2042
|
104 |
60 |
$$rules[$_][2] ? :
|
|
2046
|
60 |
104 |
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
|
2 |
8 |
unless $type
|
|
2411
|
4 |
8 |
if (exists $bundle->units->{$type}{$what}{$plural})
|
|
2416
|
0 |
8 |
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
|
6 |
0 |
if (exists $bundle->units->{$type}{$what}{'per'})
|
|
2534
|
0 |
0 |
unless $type
|
|
2536
|
0 |
0 |
if (exists $bundle->units->{$type}{$what}{'per'})
|
|
2552
|
0 |
24 |
if (exists $bundle->number_symbols->{$symbols_type}{'alias'})
|
|
2557
|
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')
|
|
3128
|
0 |
34 |
if (exists $$am_pm{$default_calendar}{'alias'})
|
|
3133
|
3 |
31 |
if (exists $$am_pm{$default_calendar}{$type}{'alias'})
|
|
3138
|
4 |
27 |
if (exists $$am_pm{$default_calendar}{$type}{$width}{'alias'})
|
|
3146
|
30 |
30 |
unless exists $return{$_}
|
|
3234
|
0 |
9 |
if (exists $$eras{$default_calendar}{'alias'})
|
|
3239
|
0 |
9 |
if (exists $$eras{$default_calendar}{$width}{'alias'})
|
|
3249
|
9 |
0 |
if keys %$result
|
|
3251
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3323
|
0 |
9 |
if (exists $$date_formats{'alias'})
|
|
3329
|
9 |
0 |
if $result
|
|
3331
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3377
|
0 |
9 |
if (exists $$time_formats{$default_calendar}{'alias'})
|
|
3383
|
9 |
0 |
if ($result)
|
|
3389
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3434
|
0 |
5 |
if (exists $$datetime_formats{$default_calendar}{'alias'})
|
|
3440
|
5 |
0 |
if $result
|
|
3442
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3520
|
0 |
0 |
if $result
|
|
3553
|
0 |
0 |
if $result
|
|
3568
|
0 |
0 |
if $result
|
|
3576
|
1 |
0 |
$self->time_format_short =~ /h|K/u ? :
|
|
3602
|
0 |
161 |
unless length $regex
|
|
3634
|
98 |
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
|
|
|
98 |
0 |
if ($normal)
|
|
3806
|
3 |
2 |
if exists $$week_data_hash{$territory_id}
|
|
3810
|
0 |
8 |
unless defined $territory_id
|
|
3811
|
2 |
6 |
if exists $$week_data_hash{$territory_id}
|
|
3907
|
0 |
1 |
if ($context eq 'numeric') { }
|
|
3924
|
0 |
2 |
if (exists $$month_patterns{$default_calendar}{'alias'})
|
|
3930
|
1 |
1 |
if (exists $$month_patterns{$default_calendar}{$context}{$width}{'alias'})
|
|
3937
|
1 |
0 |
if $result
|
|
3939
|
0 |
0 |
if ($default_calendar ne 'gregorian')
|
|
3945
|
1 |
0 |
if ($result)
|
|
3976
|
0 |
3 |
if (my $alias_calendar = $$cyclic_name_set{$default_calendar}{'alias'})
|
|
3981
|
0 |
3 |
if (my $type_alias = $$cyclic_name_set{$default_calendar}{$type}{'alias'})
|
|
3986
|
1 |
2 |
if (my $width_alias = $$cyclic_name_set{$default_calendar}{$type}{$context}{$width}{'alias'})
|
|
3998
|
1 |
1 |
if @$return
|
|
4177
|
0 |
1 |
unless ($territory_id)
|
|
4184
|
1 |
0 |
if exists $$default_currencies{$territory_id}
|
|
4188
|
0 |
0 |
unless $territory_id
|
|
4189
|
0 |
0 |
if exists $$default_currencies{$territory_id}
|
|
4208
|
1 |
0 |
if $symbol
|