| line |
true |
false |
branch |
|
214
|
0 |
0 |
if state $called++ |
|
231
|
0 |
0 |
unless /^(?(?[a-z][a-z])_(?[A-Z][A-Z]))/u |
|
236
|
0 |
0 |
unless $LocaleObj::iso639{(shift())->lang} |
|
237
|
0 |
0 |
unless $LocaleObj::iso3361{(shift())->cc} |
|
243
|
0 |
0 |
unless $locale =~ /^(?\w\w)_(?\w\w)$/u |
|
246
|
0 |
0 |
if $opt{'raw'} |
|
247
|
0 |
0 |
if $opt{'dash'} |
|
248
|
0 |
0 |
if $opt{'long'} |
|
250
|
0 |
0 |
if $opt{'long_lc'} |
|
251
|
0 |
0 |
if ($opt{'language'}) |
|
252
|
0 |
0 |
if (not $opthash{$lang} or $lang eq $cc) |
|
256
|
0 |
0 |
if ($lang eq $cc or @{$cc{$cc};} == 1) |
|
257
|
0 |
0 |
if $opt{'territory'} |
|
258
|
0 |
0 |
if $opt{'territory_lc'} and not $lang{$cc} |
|
266
|
0 |
0 |
if (my $listopt = $opt{'listopt'}) |
|
281
|
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] |
|
292
|
0 |
0 |
if $arg{'set'} |
|
293
|
0 |
0 |
if ($arg{'show'}) |
|
300
|
0 |
0 |
if $arg{'exit'} |
|
305
|
0 |
0 |
if state $called++ |
|
306
|
0 |
0 |
unless grep {-x "$_/locale";} split(/:/u, $ENV{'PATH'}, 0) |
|
309
|
0 |
0 |
unless /^(([a-z][a-z])_([A-Z][A-Z]))(?=(?i:$|\.utf))/u |
|
311
|
0 |
0 |
if (my $last = $locale{$name}) |
|
312
|
0 |
0 |
if length $_ < length $last |
|
334
|
0 |
0 |
if ($opt{'verbose'}) |