| line |
true |
false |
branch |
|
21
|
0 |
4 |
if ($^O eq 'MSWin32') { } |
|
78
|
0 |
53 |
unless (defined $opt) |
|
86
|
0 |
0 |
if (exists $opt->{'sep'} and not $self->{'called_sep_message'} and $sub ne 'readline') |
|
98
|
1 |
72 |
unless (exists $valid->{$key}) |
|
101
|
11 |
61 |
unless (defined $opt->{$key}) |
|
104
|
15 |
46 |
if (ref $opt->{$key}) |
|
105
|
0 |
15 |
if ($valid->{$key} eq 'ARRAY') |
|
110
|
23 |
23 |
if ($valid->{$key} eq '') |
|
113
|
9 |
14 |
unless ($opt->{$key} =~ /^$valid->{$key}\z/x) |
|
123
|
0 |
0 |
if ($self->{'reinit_encoding'}) |
|
131
|
0 |
3 |
if exists $self->{'enter_row'} |
|
132
|
0 |
3 |
if exists $self->{'enter_col'} |
|
133
|
3 |
0 |
if (defined $self->{'plugin'}) |
|
141
|
53 |
0 |
if (defined $opt) |
|
142
|
0 |
53 |
if (ref $opt ne 'HASH') |
|
170
|
0 |
0 |
if (defined $prompt) { } |
|
171
|
0 |
0 |
if ref $prompt |
|
176
|
0 |
0 |
if (defined $opt) |
|
177
|
0 |
0 |
if (not ref $opt) { } |
|
|
0 |
0 |
elsif (ref $opt ne 'HASH') { } |
|
189
|
0 |
0 |
unless defined $opt->{'default'} |
|
190
|
0 |
0 |
unless defined $opt->{'no_echo'} |
|
203
|
0 |
0 |
if ($self->{'beep'}) |
|
212
|
0 |
0 |
unless (defined $key) |
|
217
|
0 |
0 |
if $key == -1 |
|
218
|
0 |
0 |
if $key == 9 |
|
219
|
0 |
0 |
if ($key == 127 or $key == 8) { } |
|
|
0 |
0 |
elsif ($key == 21) { } |
|
|
0 |
0 |
elsif ($key == 11) { } |
|
|
0 |
0 |
elsif ($key == 346 or $key == 4) { } |
|
|
0 |
0 |
elsif ($key == 339 or $key == 6) { } |
|
|
0 |
0 |
elsif ($key == 337 or $key == 2) { } |
|
|
0 |
0 |
elsif ($key == 335 or $key == 5) { } |
|
|
0 |
0 |
elsif ($key == 336 or $key == 1) { } |
|
|
0 |
0 |
elsif ($key == 338 or $key == 340) { } |
|
220
|
0 |
0 |
if ($pos) { } |
|
229
|
0 |
0 |
if ($pos) { } |
|
238
|
0 |
0 |
if ($pos < $str->length) { } |
|
246
|
0 |
0 |
if ($str->length) { } |
|
247
|
0 |
0 |
if ($pos < $str->length) { } |
|
261
|
0 |
0 |
if ($pos < $str->length) { } |
|
269
|
0 |
0 |
if ($pos) { } |
|
277
|
0 |
0 |
if ($pos < $str->length) { } |
|
285
|
0 |
0 |
if ($pos > 0) { } |
|
298
|
0 |
0 |
if ($key eq "\n" or $key eq "\r") { } |
|
301
|
0 |
0 |
if ($self->{'compat'} or not defined $self->{'compat'} and $ENV{'READLINE_SIMPLE_COMPAT'}) |
|
322
|
0 |
0 |
if ($print_str->substr(0, $print_pos)->columns > $self->{'avail_width_value'} / 4) { } |
|
332
|
0 |
0 |
if ($b) |
|
335
|
0 |
0 |
if ($e) |
|
340
|
0 |
0 |
if ($opt->{'mark_curr'}) { } |
|
349
|
0 |
0 |
if (&any(sub {
$_ == $self->{'curr_row'} - @{$self->{'pre_list'};};
}
, @{$$opt{'ro'};})) |
|
352
|
0 |
0 |
if ($opt->{'no_echo'}) { } |
|
353
|
0 |
0 |
if ($opt->{'no_echo'} == 2) |
|
374
|
0 |
0 |
if ($i < @{$self->{'pre_list'};}) |
|
377
|
0 |
0 |
if $len->[$i] > $longest |
|
388
|
0 |
0 |
if (defined $opt->{'main_prompt'}) |
|
391
|
0 |
0 |
if (@$list > $self->{'avail_height'}) { } |
|
393
|
0 |
0 |
if (@$list % ($self->{'avail_height'} - 1)) |
|
408
|
0 |
0 |
unless (defined $default) |
|
419
|
0 |
0 |
if ($self->{'curr_row'} < @{$self->{'pre_list'};}) { } |
|
433
|
0 |
0 |
if ($idx < @{$self->{'pre_list'};}) { } |
|
437
|
0 |
0 |
defined $list->[$idx][1] ? : |
|
441
|
0 |
0 |
if (&any(sub {
$_ == $idx - @{$self->{'pre_list'};};
}
, @{$$opt{'ro'};})) |
|
454
|
0 |
0 |
if ($self->{'pages'} > 1) { } |
|
455
|
0 |
0 |
if ($self->{'avail_height'} - ($self->{'end_row'} + 1 - $self->{'begin_row'})) |
|
460
|
0 |
0 |
if (length $page_number > $self->{'avail_width'}) |
|
476
|
0 |
0 |
if ($self->{'len_longest_key'} > $self->{'avail_width'} / 3) |
|
480
|
0 |
0 |
if (@{$opt->{'ro'};}) |
|
482
|
0 |
0 |
if $tmp > $len_separator |
|
486
|
0 |
0 |
$opt->{'auto_up'} == 2 ? : |
|
489
|
0 |
0 |
if ($self->{'end_row'} > $#$list) |
|
492
|
0 |
0 |
if (defined $opt->{'main_prompt'}) |
|
501
|
0 |
0 |
if (not defined $orig_list) { } |
|
|
0 |
0 |
elsif (ref $orig_list ne 'ARRAY') { } |
|
507
|
0 |
0 |
if (defined $opt and ref $opt ne 'HASH') |
|
523
|
0 |
0 |
unless defined $opt->{'prompt'} |
|
524
|
0 |
0 |
unless defined $opt->{'back'} |
|
525
|
0 |
0 |
unless defined $opt->{'confirm'} |
|
526
|
0 |
0 |
unless defined $opt->{'auto_up'} |
|
527
|
0 |
0 |
unless defined $opt->{'ro'} |
|
532
|
0 |
0 |
if (length $opt->{'back'}) |
|
546
|
0 |
0 |
if (&any(sub {
$_ == $self->{'curr_row'} - @{$self->{'pre_list'};};
}
, @{$$opt{'ro'};})) |
|
549
|
0 |
0 |
if ($self->{'beep'}) { } |
|
557
|
0 |
0 |
unless (defined $key) |
|
562
|
0 |
0 |
if $key == -1 |
|
563
|
0 |
0 |
if $key == 9 |
|
565
|
0 |
0 |
if ($tmp_maxcols != $maxcols or $tmp_maxrows != $maxrows and $tmp_maxrows < @$list + 1) |
|
572
|
0 |
0 |
if ($key == 127 or $key == 8) { } |
|
|
0 |
0 |
elsif ($key == 21) { } |
|
|
0 |
0 |
elsif ($key == 11) { } |
|
|
0 |
0 |
elsif ($key == 346 or $key == 4) { } |
|
|
0 |
0 |
elsif ($key == 339) { } |
|
|
0 |
0 |
elsif ($key == 337) { } |
|
|
0 |
0 |
elsif ($key == 335 or $key == 5) { } |
|
|
0 |
0 |
elsif ($key == 336 or $key == 1) { } |
|
|
0 |
0 |
elsif ($key == 338) { } |
|
|
0 |
0 |
elsif ($key == 340) { } |
|
|
0 |
0 |
elsif ($key == 333 or $key == 2) { } |
|
|
0 |
0 |
elsif ($key == 334 or $key == 6) { } |
|
573
|
0 |
0 |
if ($locked) { } |
|
|
0 |
0 |
elsif ($pos) { } |
|
585
|
0 |
0 |
if ($locked) { } |
|
|
0 |
0 |
elsif ($pos) { } |
|
597
|
0 |
0 |
if ($locked) { } |
|
|
0 |
0 |
elsif ($pos < $str->length) { } |
|
608
|
0 |
0 |
if ($str->length) { } |
|
609
|
0 |
0 |
if ($locked) { } |
|
|
0 |
0 |
elsif ($pos < $str->length) { } |
|
626
|
0 |
0 |
if ($pos < $str->length) { } |
|
634
|
0 |
0 |
if ($pos) { } |
|
642
|
0 |
0 |
if ($pos < $str->length) { } |
|
650
|
0 |
0 |
if ($pos > 0) { } |
|
658
|
0 |
0 |
if ($self->{'curr_row'} == 0) { } |
|
664
|
0 |
0 |
if ($self->{'curr_row'} >= $self->{'begin_row'}) { } |
|
674
|
0 |
0 |
if ($self->{'curr_row'} == $#$list) { } |
|
680
|
0 |
0 |
if ($self->{'curr_row'} <= $self->{'end_row'}) { } |
|
691
|
0 |
0 |
if ($self->{'page'} == 1) { } |
|
692
|
0 |
0 |
if ($self->{'curr_row'} == 0) { } |
|
710
|
0 |
0 |
if ($self->{'page'} == $self->{'pages'}) { } |
|
711
|
0 |
0 |
if ($self->{'curr_row'} == $#$list) { } |
|
731
|
0 |
0 |
if ($key eq "\n" or $key eq "\r") { } |
|
733
|
0 |
0 |
if $opt->{'main_prompt'} |
|
734
|
0 |
0 |
if ($$list[$self->{'curr_row'}][0] eq $opt->{'back'}) { } |
|
|
0 |
0 |
elsif ($$list[$self->{'curr_row'}][0] eq $opt->{'confirm'}) { } |
|
745
|
0 |
0 |
if ($self->{'compat'} or not defined $self->{'compat'} and $ENV{'READLINE_SIMPLE_COMPAT'}) |
|
750
|
0 |
0 |
if ($opt->{'auto_up'} == 2) { } |
|
|
0 |
0 |
elsif ($self->{'curr_row'} == $#$list) { } |
|
751
|
0 |
0 |
if ($self->{'curr_row'} == 0) { } |
|
770
|
0 |
0 |
if ($opt->{'auto_up'} == 1) |
|
771
|
0 |
0 |
if (defined $self->{'enter_row'} and $self->{'enter_row'} == $self->{'curr_row'} and defined $self->{'enter_col'} and $self->{'enter_col'} == $pos) { } |
|
784
|
0 |
0 |
if ($self->{'curr_row'} <= $self->{'end_row'}) { } |
|
795
|
0 |
0 |
if ($locked) { } |
|
819
|
0 |
0 |
if $self->{'end_row'} > $#$list |
|
829
|
0 |
0 |
if $self->{'begin_row'} < 0 |
|
842
|
0 |
0 |
if ($key_length > $self->{'len_longest_key'}) { } |
|
|
0 |
0 |
elsif ($key_length < $self->{'len_longest_key'}) { } |
|
858
|
0 |
0 |
if ($gcs->columns <= $len) |
|
866
|
0 |
0 |
if ($len - 3 < ($cols += $gc->columns)) |