line |
true |
false |
branch |
24
|
0 |
6 |
if ($^O eq 'MSWin32') |
25
|
0 |
0 |
unless ($ENCODING_LOCALE) |
28
|
0 |
0 |
unless (defined &GetConsoleCP) |
34
|
0 |
0 |
unless $@ |
36
|
0 |
0 |
unless (defined &GetConsoleCP) |
40
|
0 |
0 |
if (defined &GetConsoleCP) |
42
|
0 |
0 |
if $cp |
47
|
0 |
0 |
unless ($ENCODING_CONSOLE_IN) |
49
|
0 |
0 |
unless (defined &GetInputCP) |
54
|
0 |
0 |
unless $@ |
55
|
0 |
0 |
unless $@ |
57
|
0 |
0 |
unless (defined &GetInputCP) |
63
|
0 |
0 |
unless $@ |
65
|
0 |
0 |
unless $@ |
68
|
0 |
0 |
unless (defined &GetInputCP) |
73
|
0 |
0 |
(`chcp` || '') =~ /^Active code page: (\d+)/ ? : |
79
|
0 |
0 |
if $cp |
81
|
0 |
0 |
if $cp |
85
|
5 |
1 |
unless ($ENCODING_LOCALE) |
94
|
0 |
5 |
if $ENCODING_LOCALE eq '646' |
97
|
0 |
5 |
if $^O eq 'hpux' and $ENCODING_LOCALE eq 'roman8' |
102
|
0 |
6 |
if ($^O eq 'darwin') |
107
|
0 |
0 |
$^O eq 'MSWin32' ? : |
112
|
0 |
6 |
unless (&Encode::find_encoding($ENCODING_LOCALE)) |
114
|
0 |
0 |
if (lc $ENCODING_LOCALE eq 'gb18030') |
118
|
0 |
0 |
if ($@) |
121
|
0 |
0 |
if &Encode::find_encoding($ENCODING_LOCALE) |
123
|
0 |
0 |
unless $foundit |
141
|
1 |
3 |
if (defined ${'ENCODING_' . uc($a);}) |
158
|
0 |
1 |
if defined wantarray |
167
|
4 |
5 |
if (@_) |
169
|
3 |
1 |
if (defined $v) { } |
176
|
9 |
0 |
if defined wantarray |