Branch Coverage

lib/Curses/UI/Common.pm
Criterion Covered Total %
branch 25 136 18.3


line true false branch
75 20 5 if defined $value
98 4 1 if ref $_[0]
113 0 4 if ref $_[0]
116 0 4 unless defined $line
123 1 459 if ($chr eq "\t")
139 1 0 if ref $_[0]
141 0 1 unless defined $wordwrap
144 0 1 if $line eq ''
152 0 1 if ($line =~ /\t/) { }
161 0 0 if ($nextchar eq "\t")
164 0 0 if ($newlen > $maxlen) { }
166 0 0 if ($wordwrap == 0 and $wrap =~ /^(.*)([\s])(\S+)$/) { }
182 0 0 if defined $wrap
190 0 1 if length $line < $maxlen
191 0 1 unless defined $maxlen
197 1 5 if (length $next < $maxlen) { }
0 5 elsif ($wordwrap == 0) { }
205 0 0 if ($space_idx == -1 or $space_idx == 0) { }
228 0 0 if ($text =~ m[^]s) { }
0 0 elsif ($text =~ m[^.+?(?=)]s) { }
249 0 0 if ($$this{-'htmltext'}) { }
252 0 0 if ($token =~ /^<(standout|reverse|bold|underline|blink|dim)>$/s) { }
0 0 elsif ($token =~ m[^$]s) { }
0 0 elsif ($token =~ /^<(\d*)_?(ACS_HLINE|ACS_VLINE|ACS_TTEE|ACS_BTEE|ACS_PLUS)>$/s) { }
254 0 0 if ($type eq 'standout') { }
0 0 elsif ($type eq 'reverse') { }
0 0 elsif ($type eq 'bold') { }
0 0 elsif ($type eq 'underline') { }
0 0 elsif ($type eq 'blink') { }
0 0 elsif ($type eq 'dim') { }
262 0 0 if ($type eq 'standout') { }
0 0 elsif ($type eq 'reverse') { }
0 0 elsif ($type eq 'bold') { }
0 0 elsif ($type eq 'underline') { }
0 0 elsif ($type eq 'blink') { }
0 0 elsif ($type eq 'dim') { }
297 0 0 if ($$this{-'htmltext'}) { }
300 0 0 unless ($token =~ m[^$]s)
315 0 0 if ($$this{-'htmltext'}) { }
321 0 0 if ($token =~ m[^<(/?)(reverse|bold|underline|blink|dim)>]s) { }
323 0 0 if (defined $type and $type eq '/') { }
334 0 0 if ($length > $max_length)
346 0 0 if (length $text > $max_length)
356 0 0 if ref $_[0]
367 0 0 if $l > $width
390 0 0 if ($key eq "\e") { }
0 0 elsif ($key lt ' ' and $key ne "\n" and $key ne "\t") { }
0 0 elsif ($key =~ /^\d{2,}$/) { }
428 0 1 if $blocktime < 0
433 0 1 if ($found < 0) { }
1 0 elsif ($found) { }
434 0 0 if $Curses::UI::debug
454 0 1 if ord $key == 127 or $key eq "\cH"
459 0 1 if $key eq "\177" or $key eq "\cD"
464 0 1 if $key eq "\n" or $key eq "\r"
471 0 1 if ($key eq $ESC)
476 0 0 if $key eq "$ESC-1" or $key eq "$ESC$ESC"
478 0 0 if $key eq $ESC
490 0 0 if ($key =~ /\[(\d+)\~/)
493 0 0 if ($digit >= 11 and $digit <= 15) { }
0 0 elsif ($digit >= 17 and $digit <= 21) { }
500 0 0 if $key eq $ESC . 'OH' or $key eq $ESC . '[7~' or $key eq $ESC . '[1~'
506 0 0 if $key eq $ESC . 'OI' or $key eq $ESC . '[Z'
511 0 0 if $key eq $ESC . '[2K'
515 0 0 if $key eq $ESC . 'OF' or $key eq $ESC . '[4~'
520 0 0 if $key eq $ESC . '[5~'
524 0 0 if $key eq $ESC . '[6~'
533 0 1 if ($Curses::UI::debug and $key ne '-1')