| line |
true |
false |
branch |
|
214
|
0 |
0 |
if state $called++ |
|
236
|
0 |
0 |
unless /^(?(?[a-z][a-z])_(?[A-Z][A-Z]))/u |
|
241
|
0 |
0 |
unless $LocaleObj::iso639{(shift())->lang} |
|
242
|
0 |
0 |
unless $LocaleObj::iso3361{(shift())->cc} |
|
248
|
0 |
0 |
unless $locale =~ /^(?\w\w)_(?\w\w)$/u |
|
251
|
0 |
0 |
if $opt{'raw'} |
|
252
|
0 |
0 |
if $opt{'dash'} |
|
253
|
0 |
0 |
if $opt{'long'} |
|
255
|
0 |
0 |
if $opt{'long_lc'} |
|
256
|
0 |
0 |
if ($opt{'language'}) |
|
257
|
0 |
0 |
if (not $opthash{$lang} or $lang eq $cc) |
|
261
|
0 |
0 |
if ($lang eq $cc or @{$cc{$cc};} == 1) |
|
262
|
0 |
0 |
if $opt{'territory'} |
|
263
|
0 |
0 |
if $opt{'territory_lc'} and not $lang{$cc} |
|
271
|
0 |
0 |
if (my $listopt = $opt{'listopt'}) |
|
286
|
0 |
0 |
unless $Getopt::EX::i18n::a->[1] cmp $Getopt::EX::i18n::b->[1] or lc $Getopt::EX::i18n::a->[0] cmp lc $Getopt::EX::i18n::b->[0] |
|
297
|
0 |
0 |
if $arg{'set'} |
|
298
|
0 |
0 |
if ($arg{'show'}) |
|
305
|
0 |
0 |
if $arg{'exit'} |
|
310
|
0 |
0 |
if state $called++ |
|
311
|
0 |
0 |
unless grep {-x "$_/locale";} split(/:/u, $ENV{'PATH'}, 0) |
|
314
|
0 |
0 |
unless /^(([a-z][a-z])_([A-Z][A-Z]))(?=(?i:$|\.utf))/u |
|
316
|
0 |
0 |
if (my $last = $locale{$name}) |
|
317
|
0 |
0 |
if length $_ < length $last |
|
339
|
0 |
0 |
if ($opt{'verbose'}) |