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 |
if $curr->{$key} > $#$values |
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) |