Branch Coverage

blib/lib/App/Yabsm/Command/Find.pm
Criterion Covered Total %
branch 42 102 41.1


line true false branch
47 0 0 unless @_ == 0
72 0 0 if (@_ == 1) { }
0 0 elsif (@_ == 2) { }
73 0 0 unless (shift()) =~ /^(-h|--help)$/u
84 0 0 unless (snap_exists($thing, $config_ref) or ssh_backup_exists($thing, $config_ref) or local_backup_exists($thing, $config_ref))
115 0 0 if (snap_exists($thing, $config_ref)) { }
0 0 elsif (ssh_backup_exists($thing, $config_ref)) { }
0 0 elsif (local_backup_exists($thing, $config_ref)) { }
118 0 0 unless (-r $dir)
121 0 0 unless opendir my $dh, $dir
129 0 0 unless i_am_root()
131 0 0 unless my $yabsm_uid = getpwnam "yabsm"
139 0 0 if ($ssh->error)
144 0 0 unless ($ssh->system("[ -r '${dir}' ]"))
154 0 0 unless (-r $dir)
157 0 0 unless opendir my $dh, $dir
169 0 0 if ($query{'type'} eq 'all') { }
0 0 elsif ($query{'type'} eq 'newest') { }
0 0 elsif ($query{'type'} eq 'oldest') { }
0 0 elsif ($query{'type'} eq 'after') { }
0 0 elsif ($query{'type'} eq 'before') { }
0 0 elsif ($query{'type'} eq 'between') { }
0 0 elsif ($query{'type'} eq 'closest') { }
201 0 0 wantarray ? :
216 2 0 wantarray ? :
231 2 0 wantarray ? :
248 3 2 if (snapshot_newer($this_snapshot, $target)) { }
256 2 0 wantarray ? :
274 2 2 if (snapshot_older($this_snapshot, $target)) { }
282 2 0 wantarray ? :
297 2 1 if snapshot_newer($older, $newer)
302 3 2 if (snapshot_older_or_eq($snapshots[$i], $newer))
305 6 3 if (snapshot_newer_or_eq($this_snapshot, $older)) { }
316 3 0 wantarray ? :
333 5 10 if (snapshot_older_or_eq($this_snapshot, $target)) { }
1 9 elsif ($i == $#snapshots) { }
334 1 4 if (snapshots_eq($this_snapshot, $target)) { }
1 3 elsif ($i == 0) { }
347 2 1 if ($last_target_diff <= $this_target_diff) { }
361 7 0 wantarray ? :
528 0 4 unless $self->at_eos
546 2 1 unless $self->at_eos
564 0 1 unless $self->at_eos
581 0 1 unless $self->at_eos
595 0 1 unless $self->at_eos
610 0 1 unless $self->at_eos
624 0 1 unless $self->at_eos
656 2 25 unless ($n =~ /^\d+$/u and $n > 0)
662 13 12 if ($unit =~ /^(?:minutes|mins|m)$/u) { }
9 3 elsif ($unit =~ /^(?:hours|hrs|h)$/u) { }
2 1 elsif ($unit =~ /^(?:days|d)$/u) { }