Branch Coverage

blib/lib/Encode/Locale.pm
Criterion Covered Total %
branch 15 48 31.2


line true false branch
24 0 3 if ($^O eq 'MSWin32')
25 0 0 unless ($ENCODING_LOCALE)
28 0 0 unless (defined &GetACP)
32 0 0 if (defined &GetACP)
34 0 0 if $cp
39 0 0 unless ($ENCODING_CONSOLE_IN)
45 0 0 if $cp
47 0 0 if $cp
50 0 0 if (not $ENCODING_CONSOLE_IN and (`chcp` || '') =~ /^Active code page: (\d+)/)
56 2 1 unless ($ENCODING_LOCALE)
65 0 2 if $ENCODING_LOCALE eq '646'
68 0 2 if $^O eq 'hpux' and $ENCODING_LOCALE eq 'roman8'
73 0 3 if ($^O eq 'darwin')
78 0 0 $^O eq 'MSWin32' ? :
83 0 3 unless (&Encode::find_encoding($ENCODING_LOCALE))
85 0 0 if (lc $ENCODING_LOCALE eq 'gb18030')
89 0 0 if ($@)
92 0 0 if &Encode::find_encoding($ENCODING_LOCALE)
94 0 0 unless $foundit
112 1 3 if (defined ${'ENCODING_' . uc($a);})
129 0 1 if defined wantarray
138 4 5 if (@_)
140 3 1 if (defined $v) { }
147 9 0 if defined wantarray