Branch Coverage

blib/lib/Term/Choose/Util.pm
Criterion Covered Total %
branch 0 276 0.0


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
815 0 0 unless defined $curr->{$key}
831 0 0 if (defined $self->{'cs_label'})
834 0 0 if (length $self->{'prompt'})
847 0 0 if (not $idx) { }
0 0 elsif ($idx == $#pre) { }
855 0 0 if ($curr->{$key} == $new->{$key})
867 0 0 if ($default == $idx) { }
868 0 0 if ($ENV{'TC_RESET_AUTO_UP'}) { }
0 0 elsif ($count == @$values) { }
884 0 0 if ($new->{$key} == @$values)
896 0 0 unless defined $number
897 0 0 unless length $number
898 0 0 unless defined $separator
899 0 0 if $separator eq ""
900 0 0 if $number =~ /\Q$separator\E/
930 0 0 if ($opt->{'color'}) { }
938 0 0 if ($colwidth > $avail_w) { }
0 0 elsif ($colwidth < $avail_w) { }
939 0 0 unless $opt->{'mark_if_truncated'}
0 0 if (@{[] unless $opt->{'mark_if_truncated'};})
945 0 0 if ($opt->{'right_justify'}) { }
960 0 0 if ($color)