| line |
true |
false |
branch |
|
15
|
0 |
7 |
unless $$self{'name'} =~ s/^TARGET:// |
|
17
|
0 |
7 |
unless $$self{'name'} =~ /^\w+/ |
|
84
|
121 |
23 |
unless my $invval = $db->get($key) |
|
113
|
0 |
1 |
unless my $keep_backups = $opt{'keep_backups'} || $$self{'keep_backups'} |
|
115
|
0 |
1 |
unless $keep_backups > 0 |
|
126
|
0 |
1 |
if $opt{'source'} and $source ne $opt{'source'} |
|
128
|
0 |
1 |
$keep_backups > $#b + 1 ? : |
|
131
|
0 |
0 |
$opt{'dryrun'} ? : |
|
|
0 |
1 |
if $opt{'verbose'} |
|
133
|
0 |
1 |
if $opt{'verbose'} |
|
134
|
1 |
0 |
unless $opt{'dryrun'} |
|
151
|
0 |
2 |
if $opt{'verbose'} |
|
159
|
6 |
24 |
unless $$it{'Chunks'} |
|
167
|
0 |
2 |
if (@orphaned_chunks and $opt{'verbose'} and $opt{'verbose'} >= 2) |
|
173
|
2 |
0 |
if (@orphaned_chunks and not $opt{'dryrun'}) |
|
175
|
0 |
2 |
if ($opt{'interactive'}) |
|
181
|
2 |
0 |
if (lc substr($confirm, 0, 1) eq 'y') |
|
182
|
0 |
2 |
if $opt{'verbose'} |
|
189
|
3 |
24 |
if exists $chunks{$v} |
|
194
|
0 |
2 |
wantarray ? : |