| line |
true |
false |
branch |
|
32
|
0 |
0 |
if (defined $opt) |
|
33
|
0 |
0 |
if ref $opt ne "HASH" |
|
37
|
0 |
0 |
if defined $opt->{$key} |
|
48
|
0 |
0 |
if (exists $self->{'backup_instance_defaults'}) |
|
51
|
0 |
0 |
if ($key eq 'backup_instance_defaults') { } |
|
|
0 |
0 |
elsif (exists $instance_defaults->{$key}) { } |
|
67
|
0 |
0 |
unless (defined $opt) |
|
70
|
0 |
0 |
if ref $opt ne "HASH" |
|
71
|
0 |
0 |
if (%$opt) |
|
77
|
0 |
0 |
if (not defined $opt->{$key} and defined $defaults->{$key}) { } |
|
85
|
0 |
0 |
if (not defined $self->{'tabs_prompt'}) |
|
86
|
0 |
0 |
if (defined $self->{'margin'}) { } |
|
|
0 |
0 |
elsif ($subseq_tab) { } |
|
139
|
0 |
0 |
if ($caller eq 'new') { } |
|
201
|
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') { } |
|
238
|
0 |
0 |
if (defined $self->{'init_dir'}) { } |
|
240
|
0 |
0 |
unless (-d $init_dir_fs) |
|
251
|
0 |
0 |
unless (-d $init_dir_fs) |
|
254
|
0 |
0 |
unless my $dir_fs = realpath($init_dir_fs) |
|
264
|
0 |
0 |
unless (eval {
do {
croak("${dir_fs}: $!") unless opendir $dh, $dir_fs;
1
}
}) |
|
265
|
0 |
0 |
unless opendir $dh, $dir_fs |
|
274
|
0 |
0 |
if $file_fs =~ /^\.\.?\z/ |
|
275
|
0 |
0 |
if $file_fs =~ /^\./ and not $self->{'show_hidden'} |
|
276
|
0 |
0 |
if (-d catdir($dir_fs, $file_fs)) |
|
286
|
0 |
0 |
if (ref $_[0] ne __PACKAGE__) |
|
301
|
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 ? : |
|
331
|
0 |
0 |
if (length $prompt) |
|
335
|
0 |
0 |
if (defined $tmp_dir) |
|
341
|
0 |
0 |
unless (defined $avail_dirs) |
|
361
|
0 |
0 |
if (defined $idxs and @$idxs) |
|
371
|
0 |
0 |
if (ref $_[0] ne __PACKAGE__) |
|
381
|
0 |
0 |
if (length $prompt) |
|
387
|
0 |
0 |
unless (defined $chosen_dir) |
|
392
|
0 |
0 |
unless (defined $chosen_file) |
|
397
|
0 |
0 |
$decoded ? : |
|
403
|
0 |
0 |
if (ref $_[0] ne __PACKAGE__) |
|
413
|
0 |
0 |
if (length $prompt) |
|
419
|
0 |
0 |
unless (defined $chosen_dir) |
|
422
|
0 |
0 |
$decoded ? : |
|
433
|
0 |
0 |
unless (eval {
do {
croak("${dir_fs}: $!") unless opendir $dh, $dir_fs;
1
}
}) |
|
434
|
0 |
0 |
unless opendir $dh, $dir_fs |
|
442
|
0 |
0 |
if $file_fs =~ /^\.\.?\z/ |
|
443
|
0 |
0 |
if $file_fs =~ /^\./ and not $self->{'show_hidden'} |
|
444
|
0 |
0 |
if (-d catdir($dir_fs, $file_fs)) |
|
463
|
0 |
0 |
if (not defined $choice) { } |
|
|
0 |
0 |
elsif ($choice eq $confirm) { } |
|
|
0 |
0 |
elsif ($choice eq $parent_dir) { } |
|
488
|
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("${dir_fs}: $!") unless opendir my $dh, $dir_fs;
@files_fs = readdir $dh;
closedir $dh;
} ;
1
}
}) |
|
489
|
0 |
0 |
if ($self->{'filter'}) { } |
|
493
|
0 |
0 |
unless opendir my $dh, $dir_fs |
|
504
|
0 |
0 |
if $file_fs =~ /^\.\.?\z/ |
|
505
|
0 |
0 |
if $file_fs =~ /^\./ and not $self->{'show_hidden'} |
|
506
|
0 |
0 |
if -d catdir($dir_fs, $file_fs) |
|
512
|
0 |
0 |
length $prev_dir ? : |
|
514
|
0 |
0 |
if (length $prompt2) |
|
518
|
0 |
0 |
unless (@files) |
|
520
|
0 |
0 |
if ($self->{'filter'}) { } |
|
537
|
0 |
0 |
if ($chosen_file) |
|
551
|
0 |
0 |
if (not length $chosen_file) { } |
|
|
0 |
0 |
elsif ($chosen_file eq $self->{'confirm'}) { } |
|
552
|
0 |
0 |
if (length $prev_dir) |
|
559
|
0 |
0 |
unless length $prev_dir |
|
570
|
0 |
0 |
if (ref $_[0] ne __PACKAGE__) |
|
577
|
0 |
0 |
if (ref $digits) { } |
|
|
0 |
0 |
elsif (not $digits) { } |
|
592
|
0 |
0 |
if $di == 0 |
|
601
|
0 |
0 |
if (print_columns_ext($ranges[0], $self->{'color'}) > get_term_width()) |
|
605
|
0 |
0 |
if $di == 0 |
|
614
|
0 |
0 |
if (defined $self->{'default_number'} and length $self->{'default_number'} <= $digits) |
|
626
|
0 |
0 |
if (defined $self->{'cs_label'} or length $result) |
|
627
|
0 |
0 |
length $result ? : |
|
630
|
0 |
0 |
if (print_columns($cs_row) > get_term_width()) |
|
635
|
0 |
0 |
if (defined $cs_row) |
|
638
|
0 |
0 |
if (not defined $self->{'prompt'}) { } |
|
|
0 |
0 |
elsif (length $self->{'prompt'}) { } |
|
654
|
0 |
0 |
$self->{'small_first'} ? : |
|
656
|
0 |
0 |
unless (defined $range) |
|
657
|
0 |
0 |
if (defined $result) { } |
|
667
|
0 |
0 |
if ($range eq $confirm_tmp) |
|
676
|
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 __PACKAGE__) |
|
718
|
0 |
0 |
length $opt->{'cs_label'} && !($opt->{'cs_label'} =~ /\R\z/) ? : |
|
725
|
0 |
0 |
if (defined $self->{'mark'} and @{$self->{'mark'};}) |
|
732
|
0 |
0 |
if (defined $self->{'cs_label'}) |
|
735
|
0 |
0 |
if (@$new_idx) { } |
|
|
0 |
0 |
elsif ($self->{'all_by_default'}) { } |
|
736
|
0 |
0 |
defined $_ ? : |
|
741
|
0 |
0 |
if (defined $cs) |
|
744
|
0 |
0 |
if (not defined $self->{'prompt'}) { } |
|
|
0 |
0 |
elsif (length $self->{'prompt'}) { } |
|
754
|
0 |
0 |
defined $_ ? : |
|
763
|
0 |
0 |
length $self->{'prefix'} ? : |
|
765
|
0 |
0 |
if (not defined $idx[0] or $idx[0] == 0) |
|
766
|
0 |
0 |
if (@$bu) |
|
775
|
0 |
0 |
if ($idx[0] == $#pre) |
|
781
|
0 |
0 |
unless ($self->{'keep_chosen'}) |
|
784
|
0 |
0 |
if $used_i > $i |
|
791
|
0 |
0 |
if ($ok) |
|
792
|
0 |
0 |
if (not @$new_idx and $self->{'all_by_default'}) |
|
797
|
0 |
0 |
$return_indexes ? : |
|
804
|
0 |
0 |
if (ref $_[0] ne __PACKAGE__) |
|
817
|
0 |
0 |
if ($name_w->{$key} > $longest) |
|
820
|
0 |
0 |
unless defined $curr->{$key} |
|
821
|
0 |
0 |
if $curr->{$key} > $values->$#* |
|
822
|
0 |
0 |
unless defined $$values[$curr->{$key}] |
|
826
|
0 |
0 |
if ($curr->{$key} > $values->$#*) |
|
846
|
0 |
0 |
if (defined $self->{'cs_label'}) |
|
849
|
0 |
0 |
if (not defined $self->{'prompt'}) { } |
|
|
0 |
0 |
elsif (length $self->{'prompt'}) { } |
|
867
|
0 |
0 |
if (not $idx) { } |
|
|
0 |
0 |
elsif ($idx == $#pre) { } |
|
875
|
0 |
0 |
if ($curr->{$key} == $new->{$key}) |
|
887
|
0 |
0 |
if ($default == $idx) { } |
|
888
|
0 |
0 |
if ($ENV{'TC_RESET_AUTO_UP'}) { } |
|
|
0 |
0 |
elsif ($count == @$values) { } |
|
906
|
0 |
0 |
if (++$new->{$key} > $values->$#*) |
|
910
|
0 |
0 |
if (defined $new_value) |
|
913
|
0 |
0 |
if ($count == @$values) |
|
926
|
0 |
0 |
unless length $number |
|
927
|
0 |
0 |
unless defined $separator |
|
928
|
0 |
0 |
if $separator eq "" |
|
929
|
0 |
0 |
if $number =~ /\Q$separator\E/ |
|
959
|
0 |
0 |
if ($opt->{'color'}) |
|
961
|
0 |
0 |
if push @color, $1 |
|
964
|
0 |
0 |
if ($str_w > $avail_w) |
|
965
|
0 |
0 |
unless $opt->{'suffix_on_truncate'} |
|
|
0 |
0 |
if (@{[] unless $opt->{'suffix_on_truncate'};}) |
|
970
|
0 |
0 |
if (@color) |
|
972
|
0 |
0 |
if (@color) |
|
976
|
0 |
0 |
if ($str_w < $avail_w) { } |
|
977
|
0 |
0 |
if ($opt->{'right_justify'}) { } |
|
992
|
0 |
0 |
if ($color) |