Branch Coverage

blib/lib/Term/InKey.pm
Criterion Covered Total %
branch 18 68 26.4


line true false branch
15 0 0 if $Term::InKey::WIN32CONSOLE
30 0 0 if (&WinSetConsole)
35 0 0 unless $Term::InKey::WIN32CONSOLE->Mode($newmode)
36 0 0 unless $Term::InKey::WIN32CONSOLE->Flush
39 0 0 unless $Term::InKey::WIN32CONSOLE->Flush
40 0 0 unless $Term::InKey::WIN32CONSOLE->Mode($mode)
41 0 0 unless defined $y
44 0 0 if $@
49 0 0 if (not $^O =~ /Win32/i)
59 0 73 if ($^O =~ /Win32/i)
65 0 73 if $Term::InKey::BAD_RKEY
73 0 73 if $@
123 0 0 if $Term::InKey::BAD_CLS
126 0 0 if (&WinSetConsole) { }
130 0 0 unless $Term::InKey::WIN32CONSOLE->Cls
137 0 0 if $@
143 0 0 if ($^O =~ /Win/i or $^O =~ /Dos/i)
153 0 1 if $Term::InKey::BAD_CLS
155 0 1 if ($^O =~ /Win32/i or $^O =~ /Dos/i)
161 1 0 unless ($Term::InKey::TER_CLS)
183 0 1 unless ($Term::InKey::TER_CLS)
202 1 0 if ($opt)
203 1 0 if length $opt == 1
204 0 1 if $opt =~ /-\d+/
212 0 72 if ($ch eq "\cC")
216 1 71 if ($ch =~ /[\r\n]/)
218 1 0 if $nl
221 0 71 if ($ch =~ /[\b\x7F]/)
222 0 0 unless $pass
224 0 0 if $bs
227 0 71 if ($ch eq "\cU")
229 0 0 if ($ws)
236 0 71 if (ord $ch < 32)
241 71 0 if $bullet