Branch Coverage

blib/lib/Caroline.pm
Criterion Covered Total %
branch 10 186 5.3


line true false branch
53 0 4 @_ == 1 ? :
66 0 0 unless $$self{'debug'}
89 0 0 unless defined $prompt
94 0 0 if ($self->is_supported and -t STDIN) { }
101 0 0 if defined $line
115 0 0 unless defined $c
116 0 0 unless $IS_WIN32
128 0 0 if ($$self{'isleadbyte'}->Call($c))
149 0 0 if ($$self{'sigint'}) { }
0 0 elsif ($$self{'sigtstp'}) { }
152 0 0 $IS_WIN32 ? :
160 0 0 if ($IS_WIN32)
180 0 4 if ($IS_WIN32)
184 0 4 if (my $r = delete $$self{'rawmode'})
200 6 11 if (@{$$self{'history'};} + 1 > $self->history_max_len)
220 0 0 unless (defined $c)
223 0 0 unless my $cc = ord $c
225 0 0 if ($cc == 9 and defined $$self{'completion_callback'})
227 0 0 unless defined $c
229 0 0 if $cc == 0
232 0 0 if ($cc == 13) { }
0 0 elsif ($cc == 3) { }
0 0 elsif ($cc == 26) { }
0 0 elsif ($cc == 127 or $cc == 8) { }
0 0 elsif ($cc == 4) { }
0 0 elsif ($cc == 20) { }
0 0 elsif ($cc == 2) { }
0 0 elsif ($cc == 6) { }
0 0 elsif ($cc == 16) { }
0 0 elsif ($cc == 14) { }
0 0 elsif ($cc == 27) { }
0 0 elsif ($cc == 21) { }
0 0 elsif ($cc == 11) { }
0 0 elsif ($cc == 1) { }
0 0 elsif ($cc == 5) { }
0 0 elsif ($cc == 12) { }
0 0 elsif ($cc == 18) { }
0 0 elsif ($cc == 23) { }
244 0 0 if (length $state->buf > 0) { }
251 0 0 if ($state->pos > 0 and $state->pos < $state->len)
255 0 0 if ($state->pos != $state->len - 1)
270 0 0 unless my $buf = $self->readkey
271 0 0 unless $buf .= $self->readkey
273 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') { }
282 0 0 unless $buf = $self->readkey
283 0 0 if ($buf eq '~')
288 0 0 unless $buf = $self->readkey
289 0 0 if ($buf eq '~')
334 0 1 unless open my $fh, '<:encoding(utf-8)', $filename
347 1 1 if $self->history_max_len == 0
349 0 1 unless open my $fh, '>:encoding(utf-8)', $filename
352 0 3 unless $hist =~ /\S/
361 0 0 if ($status->len > 0 and $status->pos < $status->len)
375 0 0 unless (defined $c)
378 0 0 unless my $cc = ord $c
380 0 0 if ($cc == 2 or $cc == 3 or $cc == 6 or $cc == 13)
388 0 0 if ($cc == 127 or $cc == 8) { }
400 0 0 if ((my $idx = index($hist, $query)) >= 0)
416 0 0 unless (@ret)
424 0 0 if ($i < @ret) { }
434 0 0 unless (defined $c)
437 0 0 unless my $cc = ord $c
439 0 0 if ($cc == 9) { }
0 0 elsif ($cc == 27) { }
441 0 0 if ($i == @ret)
446 0 0 if ($i < @ret)
452 0 0 if ($i < @ret)
485 0 0 if ($self->history_len > 1)
487 0 0 $dir == $HISTORY_PREV ? :
488 0 0 if ($$state{'history_index'} < 0) { }
0 0 elsif ($$state{'history_index'} >= $self->history_len) { }
503 0 0 if ($state->pos > 0 and length $state->buf > 0)
517 0 0 if ($$self{'multi_line'}) { }
532 0 0 if (defined $state->query)
542 0 0 if ($rows > $state->maxrows)
550 0 0 if ($old_rows - $rpos > 0)
569 0 0 if (defined $state->query)
575 0 0 if ($state->pos and $state->pos == $state->len and ($state->pos + $plen) % $state->cols == 0)
580 0 0 if ($rows > $state->maxrows)
589 0 0 if ($rows - $rpos2 > 0)
601 0 0 if ($col > $state->cols)
643 0 0 if ($state->pos != length $state->buf)
651 0 0 if ($state->pos > 0)
660 0 0 if (length $state->buf == $state->pos) { }
671 0 0 if $IS_WIN32
673 0 0 unless defined $term
674 0 0 if $term eq 'dumb'
675 0 0 if $term eq 'cons25'