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) { } |