Branch Coverage

blib/lib/Encode/Locale.pm
Criterion Covered Total %
branch 15 66 22.7


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