| line |
true |
false |
branch |
|
10
|
0 |
213 |
if ref $_[0] |
|
11
|
0 |
37 |
if ref $_[0] |
|
14
|
69 |
0 |
unless my $encoding = option(@_, 'encoding') |
|
15
|
0 |
0 |
unless lc $encoding eq 'locale' |
|
25
|
0 |
0 |
unless eval {
do {
require I18N::Langinfo;
$locale_encoding = I18N::Langinfo::langinfo(I18N::Langinfo::CODESET())
}
} |
|
29
|
0 |
0 |
unless ($locale_encoding) |
|
31
|
0 |
0 |
unless $ENV{$key} =~ /^([^.]+)\.([^.:]+)/ |
|
36
|
0 |
0 |
if (defined $locale_encoding and lc $locale_encoding eq 'euc' and defined $country_language) |
|
40
|
0 |
0 |
if ($country_language =~ /^ja_JP|japan(?:ese)?$/i) { } |
|
|
0 |
0 |
elsif ($country_language =~ /^ko_KR|korean?$/i) { } |
|
|
0 |
0 |
elsif ($country_language =~ /^zh_CN|chin(?:a|ese)?$/i) { } |
|
|
0 |
0 |
elsif ($country_language =~ /^zh_TW|taiwan(?:ese)?$/i) { } |
|
59
|
0 |
28 |
unless @_ |
|
62
|
26 |
2 |
if (UNIVERSAL::isa($_[0], 'HASH')) { } |
|
|
2 |
0 |
elsif (@_ % 2 == 0) { } |
|
72
|
19 |
9 |
if (my $wild_entry = delete $entries{'*'}) |
|
74
|
0 |
19 |
if ref $src |
|
77
|
0 |
19 |
unless $pattern =~ s/\\\*(?=[^*]+$)/([-\\w]+)/g |
|
88
|
0 |
57 |
unless $file =~ /$pattern/ |
|
89
|
57 |
0 |
if $1 |
|
93
|
0 |
0 |
unless not defined $1 or exists $entries{$1} and @{$entries{$1};} |
|
106
|
76 |
2 |
if (length $lang) |
|
114
|
0 |
78 |
unless $entry |
|
|
0 |
78 |
unless my(@pairs) = @{[] unless $entry;} |
|
117
|
0 |
78 |
if (defined $src and not ref $src and $src =~ /\*/) |
|
125
|
2 |
78 |
if $@ and $@ =~ /^next\b/ |
|
126
|
0 |
78 |
if $@ |
|
129
|
0 |
78 |
unless eval "use ${class}::$format; 1" |
|
131
|
51 |
27 |
if (%{"${export}::Lexicon";}) { } |
|
133
|
0 |
51 |
if (my $obj = tied %$lexicon) |
|
137
|
0 |
0 |
if $obj->isa('Locale::Maketext::Lexicon') |
|
149
|
27 |
0 |
if $] >= 5.009 |
|
157
|
1 |
26 |
if $$OptsRef{'preload'} |
|
161
|
2 |
75 |
unless length $lang |
|
165
|
59 |
16 |
if $export->isa($caller) |
|
169
|
7 |
9 |
if (my $style = option('style')) |
|
170
|
0 |
7 |
unless my $cref = $class->can(lc "_style_$style")->($class, $export->can('maketext')) |
|
209
|
25 |
10 |
unless ($$args{'Done'}) |
|
214
|
0 |
25 |
if option('auto') |
|
236
|
2 |
78 |
unless defined $src |
|
239
|
370 |
7 |
unless UNIVERSAL::isa($src, $type) |
|
242
|
0 |
7 |
unless $class->can($method) |
|
265
|
5 |
0 |
if $] >= 5.009 |
|
268
|
5 |
0 |
if (eof $src and $src eq \*{"${caller}::DATA";} or $src eq \*{'main::DATA';}) |
|
276
|
5 |
0 |
$src eq \*{'main::DATA';} ? : |
|
278
|
5 |
0 |
if ($package eq 'main' and -e $0) { } |
|
279
|
0 |
5 |
unless $fh->open($0) |
|
284
|
0 |
0 |
unless $pkg eq $package |
|
285
|
0 |
0 |
unless -e $filename |
|
288
|
0 |
0 |
unless $fh->open($filename) |
|
296
|
5 |
652 |
if /^__DATA__$/ |
|
313
|
2 |
69 |
unless defined $src |
|
317
|
0 |
69 |
unless $fh->open($src) |
|
324
|
68 |
3 |
if -e $src |
|
329
|
3 |
0 |
if length $lang |
|
334
|
1 |
76 |
if -e $file |