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 &GetACP)
31 0 0 unless $@
33 0 0 unless (defined &GetACP)
37 0 0 if (defined &GetACP)
39 0 0 if $cp
44 0 0 unless ($ENCODING_CONSOLE_IN)
46 0 0 unless (defined &GetInputCP)
51 0 0 unless $@
52 0 0 unless $@
54 0 0 unless (defined &GetInputCP)
60 0 0 unless $@
62 0 0 unless $@
65 0 0 unless (defined &GetInputCP)
70 0 0 (`chcp` || '') =~ /^Active code page: (\d+)/ ? :
76 0 0 if $cp
78 0 0 if $cp
82 5 1 unless ($ENCODING_LOCALE)
91 0 5 if $ENCODING_LOCALE eq '646'
94 0 5 if $^O eq 'hpux' and $ENCODING_LOCALE eq 'roman8'
99 0 6 if ($^O eq 'darwin')
104 0 0 $^O eq 'MSWin32' ? :
109 0 6 unless (&Encode::find_encoding($ENCODING_LOCALE))
111 0 0 if (lc $ENCODING_LOCALE eq 'gb18030')
115 0 0 if ($@)
118 0 0 if &Encode::find_encoding($ENCODING_LOCALE)
120 0 0 unless $foundit
138 1 3 if (defined ${'ENCODING_' . uc($a);})
155 0 1 if defined wantarray
164 4 5 if (@_)
166 3 1 if (defined $v) { }
173 9 0 if defined wantarray