| line |
true |
false |
branch |
|
31
|
0 |
0 |
if (defined $opt) |
|
32
|
0 |
0 |
if ref $opt ne "HASH" |
|
36
|
0 |
0 |
if defined $opt->{$key} |
|
47
|
0 |
0 |
if (exists $self->{'backup_instance_defaults'}) |
|
50
|
0 |
0 |
if ($key eq 'backup_instance_defaults') { } |
|
|
0 |
0 |
elsif (exists $instance_defaults->{$key}) { } |
|
66
|
0 |
0 |
unless (defined $opt) |
|
69
|
0 |
0 |
if ref $opt ne "HASH" |
|
70
|
0 |
0 |
if (%$opt) |
|
76
|
0 |
0 |
if (not defined $opt->{$key} and defined $defaults->{$key}) { } |
|
84
|
0 |
0 |
unless (defined $self->{'tabs_info'}) |
|
85
|
0 |
0 |
if (defined $self->{'margin'}) |
|
89
|
0 |
0 |
if (not defined $self->{'tabs_prompt'}) |
|
90
|
0 |
0 |
if (defined $self->{'margin'}) { } |
|
|
0 |
0 |
elsif ($subseq_tab) { } |
|
145
|
0 |
0 |
if ($caller eq 'new') { } |
|
205
|
0 |
0 |
if ($caller eq 'choose_directories') { } |
|
|
0 |
0 |
elsif ($caller eq 'choose_a_directory') { } |
|
|
0 |
0 |
elsif ($caller eq 'choose_a_file') { } |
|
|
0 |
0 |
elsif ($caller eq 'choose_a_number') { } |
|
|
0 |
0 |
elsif ($caller eq 'choose_a_subset') { } |
|
|
0 |
0 |
elsif ($caller eq 'settings_menu') { } |
|
230
|
0 |
0 |
if (defined $self->{'init_dir'}) { } |
|
232
|
0 |
0 |
unless (-d $init_dir_fs) |
|
248
|
0 |
0 |
unless (-d $init_dir_fs) |
|
261
|
0 |
0 |
unless (eval {
do {
croak($!) unless opendir $dh, $dir_fs;
1
}
}) |
|
262
|
0 |
0 |
unless opendir $dh, $dir_fs |
|
276
|
0 |
0 |
if $file_fs =~ /^\.\.?\z/ |
|
277
|
0 |
0 |
if $file_fs =~ /^\./ and not $self->{'show_hidden'} |
|
278
|
0 |
0 |
if (-d catdir($dir_fs, $file_fs)) |
|
288
|
0 |
0 |
if (ref $_[0] ne "Term::Choose::Util") |
|
303
|
0 |
0 |
@$chosen_dirs ? : |
|
315
|
0 |
0 |
if (not defined $choice) { } |
|
|
0 |
0 |
elsif ($choice eq $confirm) { } |
|
|
0 |
0 |
elsif ($choice eq $change_path) { } |
|
|
0 |
0 |
elsif ($choice eq $add_dirs) { } |
|
316
|
0 |
0 |
if (@bu) |
|
326
|
0 |
0 |
$decoded ? : |
|
330
|
0 |
0 |
if (length $self->{'prompt'}) |
|
334
|
0 |
0 |
if (defined $tmp_dir) |
|
340
|
0 |
0 |
unless (defined $avail_dirs) |
|
361
|
0 |
0 |
if (defined $idxs and @$idxs) |
|
371
|
0 |
0 |
if (ref $_[0] ne "Term::Choose::Util") |
|
382
|
0 |
0 |
if (length $self->{'prompt_file_dir'}) |
|
388
|
0 |
0 |
unless (defined $chosen_dir) |
|
393
|
0 |
0 |
unless (defined $chosen_file) |
|
398
|
0 |
0 |
$decoded ? : |
|
404
|
0 |
0 |
if (ref $_[0] ne "Term::Choose::Util") |
|
413
|
0 |
0 |
if (length $self->{'prompt'}) |
|
419
|
0 |
0 |
unless (defined $chosen_dir) |
|
422
|
0 |
0 |
$decoded ? : |
|
433
|
0 |
0 |
unless (eval {
do {
croak($!) unless opendir $dh, $dir_fs;
1
}
}) |
|
434
|
0 |
0 |
unless opendir $dh, $dir_fs |
|
448
|
0 |
0 |
if $file_fs =~ /^\.\.?\z/ |
|
449
|
0 |
0 |
if $file_fs =~ /^\./ and not $self->{'show_hidden'} |
|
450
|
0 |
0 |
if (-d catdir($dir_fs, $file_fs)) |
|
467
|
0 |
0 |
if (not defined $choice) { } |
|
|
0 |
0 |
elsif ($choice eq $confirm) { } |
|
|
0 |
0 |
elsif ($choice eq $parent_dir) { } |
|
492
|
0 |
0 |
unless (eval {
do {
if ($self->{'filter'}) {
@files_fs = map({basename($_);} grep({-e $_;} glob(&encode("locale_fs", scalar catfile($dir, $self->{'filter'})))));
}
else {
croak($!) unless opendir my $dh, $dir_fs;
@files_fs = readdir $dh;
closedir $dh;
} ;
1
}
}) |
|
493
|
0 |
0 |
if ($self->{'filter'}) { } |
|
497
|
0 |
0 |
unless opendir my $dh, $dir_fs |
|
514
|
0 |
0 |
if $file_fs =~ /^\.\.?\z/ |
|
515
|
0 |
0 |
if $file_fs =~ /^\./ and not $self->{'show_hidden'} |
|
516
|
0 |
0 |
if -d catdir($dir_fs, $file_fs) |
|
523
|
0 |
0 |
length $prev_dir ? : |
|
524
|
0 |
0 |
if (length $self->{'prompt'}) |
|
528
|
0 |
0 |
unless (@files) |
|
530
|
0 |
0 |
if ($self->{'filter'}) { } |
|
546
|
0 |
0 |
if ($chosen_file) |
|
558
|
0 |
0 |
if (not length $chosen_file) { } |
|
|
0 |
0 |
elsif ($chosen_file eq $self->{'confirm'}) { } |
|
559
|
0 |
0 |
if (length $prev_dir) |
|
566
|
0 |
0 |
unless length $prev_dir |
|
577
|
0 |
0 |
if (ref $_[0] ne "Term::Choose::Util") |
|
584
|
0 |
0 |
if (ref $digits) { } |
|
|
0 |
0 |
elsif (not $digits) { } |
|
599
|
0 |
0 |
if $di == 0 |
|
608
|
0 |
0 |
if (print_columns_ext($ranges[0], $self->{'color'}) > get_term_width()) |
|
612
|
0 |
0 |
if $di == 0 |
|
621
|
0 |
0 |
if (defined $self->{'default_number'} and length $self->{'default_number'} <= $digits) |
|
633
|
0 |
0 |
if (defined $self->{'cs_label'} or length $result) |
|
634
|
0 |
0 |
length $result ? : |
|
635
|
0 |
0 |
defined $self->{'cs_label'} ? : |
|
637
|
0 |
0 |
if (print_columns($cs_row) > get_term_width()) |
|
642
|
0 |
0 |
if (defined $cs_row) |
|
645
|
0 |
0 |
if (length $self->{'prompt'}) |
|
657
|
0 |
0 |
$self->{'small_first'} ? : |
|
658
|
0 |
0 |
unless (defined $range) |
|
659
|
0 |
0 |
if (defined $result) { } |
|
669
|
0 |
0 |
if ($range eq $confirm_tmp) |
|
678
|
0 |
0 |
$count_zeros ? : |
|
688
|
0 |
0 |
unless defined $number |
|
689
|
0 |
0 |
if ($number eq $self->{'reset'}) { } |
|
704
|
0 |
0 |
if (defined $str and $sep ne "") |
|
712
|
0 |
0 |
if (ref $_[0] ne "Term::Choose::Util") |
|
719
|
0 |
0 |
length $opt->{'cs_label'} ? : |
|
729
|
0 |
0 |
if (defined $self->{'cs_label'}) |
|
732
|
0 |
0 |
if (@$new_idx) { } |
|
|
0 |
0 |
elsif ($opt->{'all_by_default'}) { } |
|
733
|
0 |
0 |
defined $_ ? : |
|
738
|
0 |
0 |
if (defined $cs) |
|
741
|
0 |
0 |
if (length $self->{'prompt'}) |
|
745
|
0 |
0 |
if (defined $self->{'mark'} and @{$self->{'mark'};}) |
|
752
|
0 |
0 |
defined $_ ? : |
|
760
|
0 |
0 |
length $self->{'prefix'} ? : |
|
762
|
0 |
0 |
if (not defined $idx[0] or $idx[0] == 0) |
|
763
|
0 |
0 |
if (@$bu) |
|
772
|
0 |
0 |
if ($idx[0] == $#pre) |
|
778
|
0 |
0 |
unless ($self->{'keep_chosen'}) |
|
781
|
0 |
0 |
if $used_i > $i |
|
788
|
0 |
0 |
if ($ok) |
|
789
|
0 |
0 |
if (not @$new_idx and $opt->{'all_by_default'}) |
|
794
|
0 |
0 |
$return_indexes ? : |
|
801
|
0 |
0 |
if (ref $_[0] ne "Term::Choose::Util") |
|
814
|
0 |
0 |
if ($name_w->{$key} > $longest) |
|
817
|
0 |
0 |
unless defined $curr->{$key} |
|
818
|
0 |
0 |
unless defined $$values[$curr->{$key}] |
|
834
|
0 |
0 |
if (defined $self->{'cs_label'}) |
|
837
|
0 |
0 |
if (length $self->{'prompt'}) |
|
850
|
0 |
0 |
if (not $idx) { } |
|
|
0 |
0 |
elsif ($idx == $#pre) { } |
|
858
|
0 |
0 |
if ($curr->{$key} == $new->{$key}) |
|
870
|
0 |
0 |
if ($default == $idx) { } |
|
871
|
0 |
0 |
if ($ENV{'TC_RESET_AUTO_UP'}) { } |
|
|
0 |
0 |
elsif ($count == @$values) { } |
|
887
|
0 |
0 |
if ($new->{$key} == @$values) |
|
899
|
0 |
0 |
unless defined $number |
|
900
|
0 |
0 |
unless length $number |
|
901
|
0 |
0 |
unless defined $separator |
|
902
|
0 |
0 |
if $separator eq "" |
|
903
|
0 |
0 |
if $number =~ /\Q$separator\E/ |
|
933
|
0 |
0 |
if ($opt->{'color'}) { } |
|
941
|
0 |
0 |
if ($colwidth > $avail_w) { } |
|
|
0 |
0 |
elsif ($colwidth < $avail_w) { } |
|
942
|
0 |
0 |
unless $opt->{'mark_if_truncated'} |
|
|
0 |
0 |
if (@{[] unless $opt->{'mark_if_truncated'};}) |
|
948
|
0 |
0 |
if ($opt->{'right_justify'}) { } |
|
963
|
0 |
0 |
if ($color) |