| line |
true |
false |
branch |
|
40
|
1 |
61 |
unless &GetOptionsFromArray(\@_, 'D|allow-downgrade', \$allow_downgrade, 'R|allow-restore', \$allow_restore, 'f=s@', \@files, 'p|path', \$is_path, 'c|check=s', \$check, 'h|help', \$is_help) |
|
48
|
4 |
57 |
if ($is_help) |
|
52
|
12 |
45 |
if (defined $check) |
|
53
|
2 |
7 |
if @_ or $is_path or $allow_downgrade or $allow_restore or @files |
|
58
|
7 |
38 |
if ($is_path) { } |
|
59
|
4 |
3 |
if @_ <= 2 |
|
67
|
4 |
34 |
if @_ != 1 |
|
70
|
23 |
11 |
if (path('.')->children(qr/\A(?![.]release\z|[.]backup\z|[.]lock)/ms)) |
|
75
|
5 |
32 |
if ($next_version eq $prev_version) |
|
90
|
14 |
15 |
if ($next_version ne '0.0.0') |
|
93
|
20 |
9 |
if (-f ".release/$prev_version.migrate") |
|
106
|
1 |
32 |
if (0 == @paths) { } |
|
|
1 |
31 |
elsif (1 != @paths) { } |
|
119
|
15 |
24 |
if ($allow_restore) |
|
125
|
2 |
757 |
if $is_down and not $allow_downgrade |
|
127
|
3 |
754 |
if $t eq 'RESTORE' and not $allow_restore |
|
129
|
7 |
747 |
if ($t eq 'RESTORE') |
|
131
|
2 |
5 |
unless $f->is_file |
|
154
|
22 |
0 |
if ($Last_backup and not ['.backup/full.tar', '.backup/full.tar']->exists) |
|
169
|
0 |
0 |
if /$match/ms |
|
177
|
66 |
10 |
if ($step->{'version'} ne '0.0.0') |
|
178
|
37 |
29 |
if ($Last_backup) |
|
183
|
4 |
62 |
unless system('narada-backup') == 0 |
|
194
|
3 |
6 |
unless system('narada-restore', $file) == 0 |
|
201
|
13 |
59 |
if ($step->{'version'} eq '0.0.0') { } |
|
222
|
6 |
4 |
if ($ans eq 'restore') { } |
|
|
4 |
0 |
elsif ($ans eq 'continue') { } |