| line |
true |
false |
branch |
|
18
|
8 |
0 |
if $] > 5.008 |
|
22
|
0 |
0 |
unless $utfs{$name} |
|
26
|
0 |
0 |
$Config{'perl_patchlevel'} ? : |
|
34
|
0 |
2 |
if ($^O eq 'MSWin32') |
|
50
|
0 |
0 |
if ($cp) |
|
51
|
0 |
0 |
if ($cp == 65001) { } |
|
69
|
2 |
0 |
if defined $locale_encoding |
|
76
|
0 |
0 |
if ($locale =~ /^([^.]+)\.([^.\@]+)(?:\@.*)?$/) |
|
85
|
0 |
0 |
if (lc $locale_encoding eq 'euc') |
|
86
|
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) { } |
|
120
|
9 |
0 |
$] >= 5.017 && !$encoding::Config{'usecperl'} ? : |
|
124
|
0 |
9 |
unless ($name) |
|
128
|
0 |
9 |
if ($name eq ':_get_locale_encoding') |
|
136
|
0 |
9 |
if $name eq ':locale' |
|
137
|
0 |
8 |
if $] >= 5.027 and $^V =~ /c$/ |
|
139
|
0 |
9 |
unless defined $name |
|
141
|
0 |
9 |
unless (defined $enc) |
|
146
|
1 |
8 |
if ($arg{'Filter'}) { } |
|
147
|
0 |
8 |
if ($] >= 5.025003 and not $encoding::Config{'usecperl'}) |
|
151
|
8 |
0 |
if $deprecate |
|
154
|
8 |
0 |
unless (_exception($name)) |
|
171
|
1 |
0 |
if $deprecate |
|
173
|
0 |
1 |
if defined ${^ENCODING} |
|
179
|
0 |
1 |
if eval {
do {
require Filter::Util::Call;
'Filter::Util::Call'->import;
filter_add(sub {
my $status = filter_read();
if ($status > 0) {
$_ = $enc->decode($_, 1);
'???';
} ;
$status;
}
);
1
}
} and 0 |
|
185
|
11 |
0 |
if ($status > 0) |
|
195
|
0 |
9 |
if defined ${^UNICODE} and ${^UNICODE} != 0 |
|
197
|
0 |
18 |
if ($arg{$h}) { } |
|
198
|
0 |
0 |
unless (defined &find_encoding($arg{$h})) |
|
206
|
18 |
0 |
unless (exists $arg{$h}) |
|
213
|
0 |
18 |
if ($@) |
|
233
|
1 |
2 |
if ($INC{'Filter/Util/Call.pm'}) |