| line |
true |
false |
branch |
|
225
|
0 |
0 |
if state $called++ |
|
248
|
0 |
1 |
unless /^(?(?[a-z][a-z])_(?[A-Z][A-Z]))/u |
|
253
|
0 |
2 |
unless code2language((shift())->lang) |
|
256
|
0 |
2 |
unless code2country((shift())->cc) |
|
262
|
0 |
0 |
unless $locale =~ /^(?\w\w)_(?\w\w)$/u |
|
265
|
0 |
0 |
if $opt{'raw'} |
|
266
|
0 |
0 |
if $opt{'dash'} |
|
267
|
0 |
0 |
if $opt{'long'} |
|
269
|
0 |
0 |
if $opt{'long_lc'} |
|
270
|
0 |
0 |
if ($opt{'language'}) |
|
271
|
0 |
0 |
if (not $opthash{$lang} or $lang eq $cc) |
|
275
|
0 |
0 |
if ($lang eq $cc or @{$cc{$cc};} == 1) |
|
276
|
0 |
0 |
if $opt{'territory'} |
|
277
|
0 |
0 |
if $opt{'territory_lc'} and not $lang{$cc} |
|
285
|
0 |
0 |
if (my $listopt = $opt{'listopt'}) |
|
300
|
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] |
|
311
|
0 |
0 |
if $arg{'set'} |
|
312
|
0 |
0 |
if ($arg{'show'}) |
|
319
|
0 |
0 |
if $arg{'exit'} |
|
324
|
0 |
1 |
if state $called++ |
|
325
|
0 |
1 |
unless grep {-x "$_/locale";} split(/:/u, $ENV{'PATH'}, 0) |
|
328
|
3 |
0 |
unless /^(([a-z][a-z])_([A-Z][A-Z]))(?=(?i:$|\.utf))/u |
|
330
|
0 |
0 |
if (my $last = $locale{$name}) |
|
331
|
0 |
0 |
if length $_ < length $last |
|
353
|
0 |
3 |
if ($opt{'verbose'}) |