Branch Coverage

lib/Term/ReadLine/Perl5/OO.pm
Criterion Covered Total %
branch 4 150 2.6


line true false branch
91 0 1 @_ == 1 ? :
94 0 1 if ($editMode eq 'vicmd') { }
124 0 0 unless $self->{'debug'}
135 0 0 if $IS_WIN32
137 0 0 unless defined $term
138 0 0 if $term eq 'dumb'
139 0 0 if $term eq 'cons25'
152 0 0 if ($self->{'multi_line'}) { }
167 0 0 if (defined $state->query)
177 0 0 if ($rows > $state->maxrows)
185 0 0 if ($old_rows - $rpos > 0)
204 0 0 if (defined $state->query)
210 0 0 if ($state->pos and $state->pos == $state->len and ($state->pos + $plen) % $state->cols == 0)
215 0 0 if ($rows > $state->maxrows)
224 0 0 if ($rows - $rpos2 > 0)
236 0 0 if ($col > $state->cols)
294 0 0 if (length $state->buf == $state->pos) { }
321 0 0 if ($hist_len > 0)
323 0 0 if ($self->{'rl_HistoryIndex'} <= 0) { }
0 0 elsif ($self->{'rl_HistoryIndex'} > $hist_len) { }
350 0 0 if ($state->pos > 0)
360 0 0 if ($state->pos > 0 and length $state->buf > 0)
388 0 0 if (length $state->buf > 0)
412 0 0 if ($state->pos != length $state->buf)
489 0 0 if ($state->pos > 0 and $state->pos < $state->len)
493 0 0 if ($state->pos != $state->len - 1)
528 0 0 unless defined $prompt
533 0 0 if ($self->is_supported and -t STDIN) { }
540 0 0 if defined $line
554 0 0 unless defined $c
555 0 0 unless $IS_WIN32
567 0 0 if ($self->{'isleadbyte'}->Call($c))
588 0 0 if ($self->{'sigint'}) { }
0 0 elsif ($self->{'sigtstp'}) { }
591 0 0 $IS_WIN32 ? :
599 0 0 if ($IS_WIN32)
619 0 1 if ($IS_WIN32)
623 0 1 if (my $r = delete $self->{'rawmode'})
641 0 0 if $tuple and defined $tuple->[0]
665 0 0 unless (defined $c)
668 0 0 unless my $cc = ord $c
670 0 0 if ($cc == 9 and defined $self->{'completion_callback'})
672 0 0 unless defined $c
674 0 0 if $cc == 0
679 0 0 if ($tuple and $tuple->[0]) { }
693 0 0 if $done
701 0 0 if ($cc == 27)
703 0 0 unless my $buf = $self->readkey
704 0 0 unless $buf .= $self->readkey
706 0 0 if ($buf eq '[D') { }
0 0 elsif ($buf eq '[C') { }
0 0 elsif ($buf eq '[A') { }
0 0 elsif ($buf eq '[B') { }
0 0 elsif ($buf eq '[1') { }
0 0 elsif ($buf eq '[4') { }
715 0 0 unless $buf = $self->readkey
716 0 0 if ($buf eq '~')
721 0 0 unless $buf = $self->readkey
722 0 0 if ($buf eq '~')
743 0 0 if ($status->len > 0 and $status->pos < $status->len)
757 0 0 unless (defined $c)
760 0 0 unless my $cc = ord $c
762 0 0 if ($cc == 2 or $cc == 3 or $cc == 6 or $cc == 13)
770 0 0 if ($cc == 127 or $cc == 8) { }
782 0 0 if ((my $idx = index($hist, $query)) >= 0)
798 0 0 unless (@ret)
806 0 0 if ($i < @ret) { }
816 0 0 unless (defined $c)
819 0 0 unless my $cc = ord $c
821 0 0 if ($cc == 9) { }
0 0 elsif ($cc == 27) { }
823 0 0 if ($i == @ret)
828 0 0 if ($i < @ret)
834 0 0 if ($i < @ret)
857 0 0 if @_ == 2