| line |
true |
false |
branch |
|
24
|
0 |
3 |
if ($^O eq 'MSWin32') { } |
|
38
|
0 |
1 |
if @_ > 1 |
|
41
|
0 |
1 |
if (defined $opt) |
|
42
|
0 |
0 |
if ref $opt ne "HASH" |
|
46
|
0 |
0 |
if defined $opt->{$key} |
|
106
|
0 |
0 |
if (defined $self->{'plugin'}) |
|
109
|
0 |
0 |
if ($up) |
|
112
|
0 |
0 |
if ($self->{'clear_screen'} == 2) { } |
|
118
|
0 |
0 |
if ($self->{'hide_cursor'} == 1) { } |
|
|
0 |
0 |
elsif ($self->{'hide_cursor'} == 2) { } |
|
130
|
0 |
0 |
if (exists $self->{'backup_instance_defaults'}) |
|
133
|
0 |
0 |
if ($key eq 'plugin' or $key eq 'backup_instance_defaults') { } |
|
|
0 |
0 |
elsif (exists $instance_defaults->{$key}) { } |
|
150
|
0 |
0 |
if ($self->{'color'}) { } |
|
157
|
0 |
0 |
if push @color, $1 |
|
171
|
0 |
0 |
if ($self->{'i'}{'max_key_w'} > $term_w / 3) |
|
190
|
0 |
0 |
if $self->{'i'}{'th'} > 40 |
|
196
|
0 |
0 |
if (defined $str) { } |
|
216
|
0 |
0 |
if ($tmp_w > $self->{'i'}{'th'}) |
|
225
|
0 |
0 |
if ($tmp_w > $self->{'i'}{'th'}) |
|
236
|
0 |
0 |
unless (defined $default) |
|
265
|
0 |
0 |
if ($m->{'pos'}) { } |
|
271
|
0 |
0 |
unless ($m->{'diff'}) |
|
285
|
0 |
0 |
if ($m->{'pos'} < $#{$$m{'str'};}) { } |
|
|
0 |
0 |
elsif ($m->{'pos'} == $#{$$m{'str'};}) { } |
|
306
|
0 |
0 |
if ($m->{'pos'}) { } |
|
313
|
0 |
0 |
unless ($m->{'diff'}) |
|
325
|
0 |
0 |
if ($m->{'pos'} < @{$m->{'str'};}) { } |
|
326
|
0 |
0 |
unless ($m->{'diff'}) |
|
338
|
0 |
0 |
if ($m->{'pos'}) { } |
|
353
|
0 |
0 |
if ($m->{'pos'} < @{$m->{'str'};}) { } |
|
366
|
0 |
0 |
if ($m->{'pos'} > 0) { } |
|
378
|
0 |
0 |
if ($m->{'pos'} < @{$m->{'str'};}) { } |
|
396
|
0 |
0 |
if (not $m->{'diff'} and $m->{'p_pos'} < $self->{'i'}{'avail_w'} + $self->{'i'}{'arrow_w'}) |
|
400
|
0 |
0 |
if ($m->{'p_str_w'} <= $m->{'avail_w'}) |
|
431
|
0 |
0 |
if (defined $tmp->[1]) |
|
445
|
0 |
0 |
if ($m->{'p_str_w'} + $_->[1] > $m->{'avail_w'}) |
|
458
|
0 |
0 |
if ($m->{'p_str_w'} + $_->[1] > $m->{'avail_w'}) |
|
501
|
0 |
0 |
if ($self->{'no_echo'} and $self->{'no_echo'} == 2) |
|
506
|
0 |
0 |
if ($m->{'diff'}) |
|
510
|
0 |
0 |
if ($self->{'no_echo'}) { } |
|
517
|
0 |
0 |
if (@{$m->{'p_str'};} + $m->{'diff'} != @{$m->{'str'};}) |
|
524
|
0 |
0 |
if ($self->{'hide_cursor'}) |
|
528
|
0 |
0 |
if ($back_to_pos) |
|
536
|
0 |
0 |
if print_columns($str) <= $len |
|
545
|
0 |
0 |
if ($i < @{$self->{'i'}{'pre'};}) |
|
548
|
0 |
0 |
if (&any(sub {
$_ == $i;
}
, @{$$self{"i"}{"keys_to_skip"};})) |
|
552
|
0 |
0 |
if $len > $longest |
|
561
|
0 |
0 |
if (length $self->{'i'}{'info_prompt'}) { } |
|
568
|
0 |
0 |
if ($term_h < $min_avail_h) |
|
571
|
0 |
0 |
if ($self->{'i'}{'avail_h'} < $min_avail_h) |
|
578
|
0 |
0 |
if (@$list > $self->{'i'}{'avail_h'}) { } |
|
580
|
0 |
0 |
if (@$list % ($self->{'i'}{'avail_h'} - 1)) |
|
587
|
0 |
0 |
if ($self->{'page'} == 2 or $self->{'page'} == 1 and $self->{'i'}{'page_count'} > 1) { } |
|
601
|
0 |
0 |
if ($self->{'i'}{'curr_row'} < @{$self->{'i'}{'pre'};}) { } |
|
608
|
0 |
0 |
defined $_->[0] ? : |
|
618
|
0 |
0 |
if (length $remainder) |
|
620
|
0 |
0 |
if (length $remainder) |
|
624
|
0 |
0 |
if (not length $self->{'i'}{'seps'}[$idx]) { } |
|
|
0 |
0 |
elsif (length $self->{'i'}{'seps'}[$idx] == 1) { } |
|
631
|
0 |
0 |
if (exists $self->{'i'}{'key_colors'} and @{$self->{'i'}{'key_colors'}[$idx];}) |
|
642
|
0 |
0 |
if ($idx < @{$self->{'i'}{'pre'};}) |
|
645
|
0 |
0 |
if (&any(sub {
$_ == $idx;
}
, @{$$self{"i"}{"keys_to_skip"};})) |
|
648
|
0 |
0 |
unless (defined $self->{'i'}{'keys'}[$idx]) |
|
655
|
0 |
0 |
unless (defined $self->{'i'}{'seps'}[$idx]) |
|
656
|
0 |
0 |
if (&any(sub {
$_ == $idx;
}
, @{$$self{'i'}{'read_only'};})) { } |
|
663
|
0 |
0 |
if (exists $self->{'i'}{'key_colors'} and @{$self->{'i'}{'key_colors'}[$idx];}) |
|
668
|
0 |
0 |
if (defined $list->[$idx][1]) { } |
|
687
|
0 |
0 |
if ($self->{'i'}{'print_footer'}) |
|
689
|
0 |
0 |
if ($trailing_empty_page_rows > 1) |
|
696
|
0 |
0 |
if ($up) |
|
704
|
0 |
0 |
unless ($self->{'i'}{'print_footer'}) |
|
710
|
0 |
0 |
if ($self->{'footer'}) |
|
713
|
0 |
0 |
if (print_columns(sprintf($footer_fmt, $p_count)) > $term_w) |
|
715
|
0 |
0 |
if (length sprintf($footer_fmt, $p_count) > $term_w) |
|
716
|
0 |
0 |
if ($width_p_count > $term_w) |
|
728
|
0 |
0 |
$self->{'auto_up'} ? : |
|
731
|
0 |
0 |
if ($self->{'i'}{'end_row'} > $list->$#*) |
|
736
|
0 |
0 |
if ($self->{'clear_screen'} == 1) { } |
|
742
|
0 |
0 |
if ($self->{'hide_cursor'}) |
|
745
|
0 |
0 |
if (length $self->{'i'}{'info_prompt'}) |
|
759
|
0 |
0 |
if ($self->{'color'}) |
|
761
|
0 |
0 |
if push @color, $1 |
|
764
|
0 |
0 |
if (print_columns($tmp) > $term_w) |
|
767
|
0 |
0 |
if (@color) |
|
779
|
0 |
0 |
if ($self->{'clear_screen'} == 2) |
|
782
|
0 |
0 |
if (length $self->{'footer'} and $self->{'page'} != 2) |
|
785
|
0 |
0 |
if ($self->{'page'} == 2 and not $self->{'clear_screen'}) |
|
792
|
0 |
0 |
if (ref $_[0] ne __PACKAGE__) |
|
798
|
0 |
0 |
unless defined $orig_list |
|
799
|
0 |
0 |
if ref $orig_list ne "ARRAY" |
|
800
|
0 |
0 |
unless defined $opt |
|
801
|
0 |
0 |
if ref $opt ne "HASH" |
|
802
|
0 |
0 |
unless (@$orig_list) |
|
808
|
0 |
0 |
unless (defined $choice) |
|
814
|
0 |
0 |
if (%$opt) |
|
818
|
0 |
0 |
if defined $opt->{$key} |
|
822
|
0 |
0 |
if ($^O eq "MSWin32") |
|
823
|
0 |
0 |
$self->{'codepage_mapping'} ? : |
|
826
|
0 |
0 |
if (length $self->{'info'}) |
|
829
|
0 |
0 |
if (length $self->{'prompt'}) |
|
835
|
0 |
0 |
if length $self->{'i'}{'sep'} != length $self->{'i'}{'sep_ro'} |
|
853
|
0 |
0 |
if (@{$self->{'read_only'};}) |
|
858
|
0 |
0 |
if (defined $self->{'skip_items'}) { } |
|
860
|
0 |
0 |
if (defined $orig_list->[$i][0] and $orig_list->[$i][0] =~ /$self->{'skip_items'}/) { } |
|
885
|
0 |
0 |
if (&any(sub {
$_ == $self->{'i'}{'curr_row'};
}
, @{$$self{"i"}{"read_only"};})) |
|
888
|
0 |
0 |
if ($self->{'i'}{'beep'}) { } |
|
893
|
0 |
0 |
if ($self->{'hide_cursor'}) |
|
899
|
0 |
0 |
if (&any(sub {
$_ == $self->{'i'}{'curr_row'};
}
, @{$$self{'i'}{'keys_to_skip'};})) { } |
|
900
|
0 |
0 |
if ($self->{'i'}{'direction'} eq 'up' or $self->{'i'}{'curr_row'} >= $self->{'i'}{'end_down'}) { } |
|
911
|
0 |
0 |
unless (defined $char) |
|
916
|
0 |
0 |
if $char == -1 |
|
917
|
0 |
0 |
if $char == 9 |
|
919
|
0 |
0 |
if ($tmp_term_w != $term_w or $tmp_term_h != $term_h and $tmp_term_h < @$list + 1) |
|
921
|
0 |
0 |
if $up |
|
936
|
0 |
0 |
if ($char == 127 or $char == 8) { } |
|
|
0 |
0 |
elsif ($char == 21) { } |
|
|
0 |
0 |
elsif ($char == 11) { } |
|
|
0 |
0 |
elsif ($char == 346 or $char == 4) { } |
|
|
0 |
0 |
elsif ($char == 339 or $char == 6) { } |
|
|
0 |
0 |
elsif ($char == 337 or $char == 2) { } |
|
|
0 |
0 |
elsif ($char == 335 or $char == 5) { } |
|
|
0 |
0 |
elsif ($char == 336 or $char == 1) { } |
|
|
0 |
0 |
elsif ($char == 338 or $char == 19) { } |
|
|
0 |
0 |
elsif ($char == 340 or $char == 20) { } |
|
|
0 |
0 |
elsif ($char == 333 or $char == 16) { } |
|
|
0 |
0 |
elsif ($char == 334 or $char == 14) { } |
|
|
0 |
0 |
elsif ($char == 24) { } |
|
|
0 |
0 |
elsif ($char == 345) { } |
|
|
0 |
0 |
elsif ($char == 10 or $char == 13) { } |
|
938
|
0 |
0 |
if ($locked) { } |
|
947
|
0 |
0 |
if ($locked) { } |
|
956
|
0 |
0 |
if ($locked) { } |
|
985
|
0 |
0 |
if ($self->{'i'}{'curr_row'} == 0) { } |
|
991
|
0 |
0 |
if ($self->{'i'}{'curr_row'} >= $self->{'i'}{'begin_row'}) { } |
|
1002
|
0 |
0 |
if ($self->{'i'}{'curr_row'} == $list->$#*) { } |
|
1008
|
0 |
0 |
if ($self->{'i'}{'curr_row'} <= $self->{'i'}{'end_row'}) { } |
|
1020
|
0 |
0 |
if ($self->{'i'}{'curr_page'} == 1) { } |
|
1021
|
0 |
0 |
if ($self->{'i'}{'curr_row'} == 0) { } |
|
1033
|
0 |
0 |
if $up |
|
1041
|
0 |
0 |
if ($self->{'i'}{'curr_page'} == $self->{'i'}{'page_count'}) { } |
|
1042
|
0 |
0 |
if ($self->{'i'}{'curr_row'} == $list->$#*) { } |
|
1055
|
0 |
0 |
if $up |
|
1062
|
0 |
0 |
if (@{$m->{'str'};}) { } |
|
1076
|
0 |
0 |
if ($self->{'i'}{'info_prompt_row_count'}) |
|
1079
|
0 |
0 |
if ($$list[$self->{'i'}{'curr_row'}][0] eq $self->{'back'}) { } |
|
|
0 |
0 |
elsif ($$list[$self->{'i'}{'curr_row'}][0] eq $self->{'confirm'}) { } |
|
1088
|
0 |
0 |
if ($self->{'auto_up'} == 2 or $self->{'i'}{'curr_row'} == $list->$#*) { } |
|
1097
|
0 |
0 |
if ($self->{'i'}{'curr_row'} <= $self->{'i'}{'end_row'}) { } |
|
1109
|
0 |
0 |
if ($locked) { } |
|
1126
|
0 |
0 |
if ($self->{'i'}{'curr_row'} < $idx) |
|
1136
|
0 |
0 |
if $self->{'i'}{'end_row'} > $list->$#* |
|
1139
|
0 |
0 |
if ($self->{'i'}{'curr_row'} == $self->{'i'}{'end_row'}) |
|
1149
|
0 |
0 |
if $self->{'i'}{'begin_row'} < 0 |
|
1152
|
0 |
0 |
if ($self->{'i'}{'curr_row'} > $self->{'i'}{'begin_row'}) |