blib/lib/Term/ReadLine/Simple.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 2 | 84 | 2.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
87 | 53 | 0 | 0 | exists $opt->{'sep'} and not $self->{'called_sep_message'} |
53 | 0 | 0 | exists $opt->{'sep'} and not $self->{'called_sep_message'} and $sub ne 'readline' | |
302 | 0 | 0 | 0 | not defined $self->{'compat'} and $ENV{'READLINE_SIMPLE_COMPAT'} |
426 | 0 | 0 | 0 | not $prompt =~ /\n/ and 'Unicode::GCString'->new($prompt)->columns <= $self->{'avail_width'} |
551 | 0 | 0 | 0 | defined $opt and ref $opt ne 'HASH' |
609 | 0 | 0 | 0 | $tmp_maxrows != $maxrows and $tmp_maxrows < @$list + 1 |
789 | 0 | 0 | 0 | not defined $self->{'compat'} and $ENV{'READLINE_SIMPLE_COMPAT'} |
815 | 0 | 0 | 0 | defined $self->{'enter_row'} and $self->{'enter_row'} == $self->{'curr_row'} |
0 | 0 | 0 | defined $self->{'enter_row'} and $self->{'enter_row'} == $self->{'curr_row'} and defined $self->{'enter_col'} | |
0 | 0 | 0 | defined $self->{'enter_row'} and $self->{'enter_row'} == $self->{'curr_row'} and defined $self->{'enter_col'} and $self->{'enter_col'} == $pos |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
220 | 0 | 0 | 0 | $key == 127 or $key == 8 |
0 | 0 | 0 | $key == 346 or $key == 4 | |
0 | 0 | 0 | $key == 339 or $key == 6 | |
0 | 0 | 0 | $key == 337 or $key == 2 | |
0 | 0 | 0 | $key == 335 or $key == 5 | |
0 | 0 | 0 | $key == 336 or $key == 1 | |
0 | 0 | 0 | $key == 338 or $key == 340 | |
299 | 0 | 0 | 0 | $key eq "\n" or $key eq "\r" |
302 | 0 | 0 | 0 | $self->{'compat'} or not defined $self->{'compat'} and $ENV{'READLINE_SIMPLE_COMPAT'} |
609 | 0 | 0 | 0 | $tmp_maxcols != $maxcols or $tmp_maxrows != $maxrows and $tmp_maxrows < @$list + 1 |
616 | 0 | 0 | 0 | $key == 127 or $key == 8 |
0 | 0 | 0 | $key == 346 or $key == 4 | |
0 | 0 | 0 | $key == 335 or $key == 5 | |
0 | 0 | 0 | $key == 336 or $key == 1 | |
0 | 0 | 0 | $key == 333 or $key == 2 | |
0 | 0 | 0 | $key == 334 or $key == 6 | |
775 | 0 | 0 | 0 | $key eq "\n" or $key eq "\r" |
789 | 0 | 0 | 0 | $self->{'compat'} or not defined $self->{'compat'} and $ENV{'READLINE_SIMPLE_COMPAT'} |