| 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 |
unless (defined $self->{'tabs_info'}) |
|
86
|
0 |
0 |
if (defined $self->{'margin'}) |
|
90
|
0 |
0 |
if (not defined $self->{'tabs_prompt'}) |
|
91
|
0 |
0 |
if (defined $self->{'margin'}) { } |
|
|
0 |
0 |
elsif ($subseq_tab) { } |
|
145
|
0 |
0 |
if ($caller eq 'new') { } |
|
204
|
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') { } |
|
229
|
0 |
0 |
if (defined $self->{'init_dir'}) { } |
|
231
|
0 |
0 |
unless (-d $init_dir_fs) |
|
247
|
0 |
0 |
unless (-d $init_dir_fs) |
|
250
|
0 |
0 |
unless my $dir_fs = realpath($init_dir_fs) |
|
260
|
0 |
0 |
unless (eval {
do {
croak("${dir_fs}: $!") unless opendir $dh, $dir_fs;
1
}
}) |
|
261
|
0 |
0 |
unless opendir $dh, $dir_fs |
|
275
|
0 |
0 |
if $file_fs =~ /^\.\.?\z/ |
|
276
|
0 |
0 |
if $file_fs =~ /^\./ and not $self->{'show_hidden'} |
|
277
|
0 |
0 |
if (-d catdir($dir_fs, $file_fs)) |
|
287
|
0 |
0 |
if (ref $_[0] ne __PACKAGE__) |
|
302
|
0 |
0 |
@$chosen_dirs ? : |
|
314
|
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) { } |
|
315
|
0 |
0 |
if (@bu) |
|
325
|
0 |
0 |
$decoded ? : |
|
329
|
0 |
0 |
if (length $self->{'prompt'}) |
|
333
|
0 |
0 |
if (defined $tmp_dir) |
|
339
|
0 |
0 |
unless (defined $avail_dirs) |
|
361
|
0 |
0 |
if (defined $idxs and @$idxs) |
|
371
|
0 |
0 |
if (ref $_[0] ne __PACKAGE__) |
|
380
|
0 |
0 |
if (length $self->{'prompt'}) |
|
386
|
0 |
0 |
unless (defined $chosen_dir) |
|
391
|
0 |
0 |
unless (defined $chosen_file) |
|
396
|
0 |
0 |
$decoded ? : |
|
402
|
0 |
0 |
if (ref $_[0] ne __PACKAGE__) |
|
411
|
0 |
0 |
if (length $self->{'prompt'}) |
|
417
|
0 |
0 |
unless (defined $chosen_dir) |
|
420
|
0 |
0 |
$decoded ? : |
|
431
|
0 |
0 |
unless (eval {
do {
croak("${dir_fs}: $!") unless opendir $dh, $dir_fs;
1
}
}) |
|
432
|
0 |
0 |
unless opendir $dh, $dir_fs |
|
446
|
0 |
0 |
if $file_fs =~ /^\.\.?\z/ |
|
447
|
0 |
0 |
if $file_fs =~ /^\./ and not $self->{'show_hidden'} |
|
448
|
0 |
0 |
if (-d catdir($dir_fs, $file_fs)) |
|
465
|
0 |
0 |
if (not defined $choice) { } |
|
|
0 |
0 |
elsif ($choice eq $confirm) { } |
|
|
0 |
0 |
elsif ($choice eq $parent_dir) { } |
|
490
|
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
}
}) |
|
491
|
0 |
0 |
if ($self->{'filter'}) { } |
|
495
|
0 |
0 |
unless opendir my $dh, $dir_fs |
|
512
|
0 |
0 |
if $file_fs =~ /^\.\.?\z/ |
|
513
|
0 |
0 |
if $file_fs =~ /^\./ and not $self->{'show_hidden'} |
|
514
|
0 |
0 |
if -d catdir($dir_fs, $file_fs) |
|
520
|
0 |
0 |
length $prev_dir ? : |
|
522
|
0 |
0 |
if (length $prompt2) |
|
526
|
0 |
0 |
unless (@files) |
|
528
|
0 |
0 |
if ($self->{'filter'}) { } |
|
544
|
0 |
0 |
if ($chosen_file) |
|
556
|
0 |
0 |
if (not length $chosen_file) { } |
|
|
0 |
0 |
elsif ($chosen_file eq $self->{'confirm'}) { } |
|
557
|
0 |
0 |
if (length $prev_dir) |
|
564
|
0 |
0 |
unless length $prev_dir |
|
575
|
0 |
0 |
if (ref $_[0] ne __PACKAGE__) |
|
582
|
0 |
0 |
if (ref $digits) { } |
|
|
0 |
0 |
elsif (not $digits) { } |
|
597
|
0 |
0 |
if $di == 0 |
|
606
|
0 |
0 |
if (print_columns_ext($ranges[0], $self->{'color'}) > get_term_width()) |
|
610
|
0 |
0 |
if $di == 0 |
|
619
|
0 |
0 |
if (defined $self->{'default_number'} and length $self->{'default_number'} <= $digits) |
|
631
|
0 |
0 |
if (defined $self->{'cs_label'} or length $result) |
|
632
|
0 |
0 |
length $result ? : |
|
635
|
0 |
0 |
if (print_columns($cs_row) > get_term_width()) |
|
640
|
0 |
0 |
if (defined $cs_row) |
|
643
|
0 |
0 |
if (length $self->{'prompt'}) |
|
655
|
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 ? : |
|
686
|
0 |
0 |
unless defined $number |
|
687
|
0 |
0 |
if ($number eq $self->{'reset'}) { } |
|
702
|
0 |
0 |
if (defined $str and $sep ne "") |
|
710
|
0 |
0 |
if (ref $_[0] ne __PACKAGE__) |
|
716
|
0 |
0 |
length $opt->{'cs_label'} && !($opt->{'cs_label'} =~ /\R\z/) ? : |
|
723
|
0 |
0 |
if (defined $self->{'mark'} and @{$self->{'mark'};}) |
|
730
|
0 |
0 |
if (defined $self->{'cs_label'}) |
|
733
|
0 |
0 |
if (@$new_idx) { } |
|
|
0 |
0 |
elsif ($opt->{'all_by_default'}) { } |
|
734
|
0 |
0 |
defined $_ ? : |
|
739
|
0 |
0 |
if (defined $cs) |
|
742
|
0 |
0 |
if (length $self->{'prompt'}) |
|
749
|
0 |
0 |
defined $_ ? : |
|
757
|
0 |
0 |
length $self->{'prefix'} ? : |
|
759
|
0 |
0 |
if (not defined $idx[0] or $idx[0] == 0) |
|
760
|
0 |
0 |
if (@$bu) |
|
769
|
0 |
0 |
if ($idx[0] == $#pre) |
|
775
|
0 |
0 |
unless ($self->{'keep_chosen'}) |
|
778
|
0 |
0 |
if $used_i > $i |
|
785
|
0 |
0 |
if ($ok) |
|
786
|
0 |
0 |
if (not @$new_idx and $opt->{'all_by_default'}) |
|
791
|
0 |
0 |
$return_indexes ? : |
|
798
|
0 |
0 |
if (ref $_[0] ne __PACKAGE__) |
|
811
|
0 |
0 |
if ($name_w->{$key} > $longest) |
|
814
|
0 |
0 |
unless defined $curr->{$key} |
|
815
|
0 |
0 |
if $curr->{$key} > $values->$#* |
|
816
|
0 |
0 |
unless defined $$values[$curr->{$key}] |
|
820
|
0 |
0 |
if ($curr->{$key} > $values->$#*) |
|
840
|
0 |
0 |
if (defined $self->{'cs_label'}) |
|
843
|
0 |
0 |
if (length $self->{'prompt'}) |
|
856
|
0 |
0 |
if (not $idx) { } |
|
|
0 |
0 |
elsif ($idx == $#pre) { } |
|
864
|
0 |
0 |
if ($curr->{$key} == $new->{$key}) |
|
876
|
0 |
0 |
if ($default == $idx) { } |
|
877
|
0 |
0 |
if ($ENV{'TC_RESET_AUTO_UP'}) { } |
|
|
0 |
0 |
elsif ($count == @$values) { } |
|
895
|
0 |
0 |
if (++$new->{$key} > $values->$#*) |
|
899
|
0 |
0 |
if (defined $new_value) |
|
902
|
0 |
0 |
if ($count == @$values) |
|
915
|
0 |
0 |
unless length $number |
|
916
|
0 |
0 |
unless defined $separator |
|
917
|
0 |
0 |
if $separator eq "" |
|
918
|
0 |
0 |
if $number =~ /\Q$separator\E/ |
|
948
|
0 |
0 |
if ($opt->{'color'}) |
|
950
|
0 |
0 |
if push @color, $1 |
|
953
|
0 |
0 |
if ($str_w > $avail_w) |
|
954
|
0 |
0 |
unless $opt->{'suffix_on_truncate'} |
|
|
0 |
0 |
if (@{[] unless $opt->{'suffix_on_truncate'};}) |
|
959
|
0 |
0 |
if (@color) |
|
961
|
0 |
0 |
if (@color) |
|
965
|
0 |
0 |
if ($str_w < $avail_w) { } |
|
966
|
0 |
0 |
if ($opt->{'right_justify'}) { } |
|
981
|
0 |
0 |
if ($color) |