| line |
true |
false |
branch |
|
206
|
0 |
0 |
if state $called++ |
|
222
|
0 |
0 |
unless $_[0] =~ /^(([a-z][a-z])_([A-Z][A-Z]))$/u |
|
227
|
0 |
0 |
unless $LocaleObj::iso639{(shift())->lang} |
|
228
|
0 |
0 |
unless $LocaleObj::iso3361{(shift())->cc} |
|
234
|
0 |
0 |
unless $locale =~ /^(?\w\w)_(?\w\w)$/u |
|
237
|
0 |
0 |
if $opt{'raw'} |
|
238
|
0 |
0 |
if $opt{'dash'} |
|
239
|
0 |
0 |
if $opt{'long'} |
|
241
|
0 |
0 |
if $opt{'long_lc'} |
|
242
|
0 |
0 |
if ($opt{'lang'}) |
|
243
|
0 |
0 |
if (not $opthash{$lang} or $lang eq $cc) |
|
247
|
0 |
0 |
if ($lang eq $cc or @{$cc{$cc};} == 1) |
|
248
|
0 |
0 |
if $opt{'country'} |
|
249
|
0 |
0 |
if $opt{'country_lc'} and not $lang{$cc} |
|
257
|
0 |
0 |
if (my $listopt = $opt{'listopt'}) |
|
272
|
0 |
0 |
unless $Getopt::EX::i18n::a->[1] cmp $Getopt::EX::i18n::b->[1] |
|
281
|
0 |
0 |
if $arg{'set'} |
|
282
|
0 |
0 |
if ($arg{'show'}) |
|
289
|
0 |
0 |
if $arg{'exit'} |
|
294
|
0 |
0 |
if state $called++ |
|
295
|
0 |
0 |
unless grep {-x "$_/locale";} split(/:/u, $ENV{'PATH'}, 0) |
|
297
|
0 |
0 |
unless /^((\w\w)_(\w\w))$/u |
|
317
|
0 |
0 |
if ($opt{'verbose'}) |