line |
true |
false |
branch |
140
|
0 |
0 |
if (not defined $opts{'path'}) { } |
|
0 |
0 |
elsif (ref $opts{'path'} ne 'ARRAY' and not -d $opts{'path'}) { } |
|
0 |
0 |
elsif (ref $opts{'path'} eq 'ARRAY') { } |
145
|
0 |
0 |
unless (defined $opts{'path'}[0]) |
150
|
0 |
0 |
unless (-d $opts{'path'}[$int]) |
164
|
0 |
0 |
if (not defined $opts{'du'}) { } |
|
0 |
0 |
elsif (not $opts{'du'} =~ /^\d+$/) { } |
171
|
0 |
0 |
if (defined $opts{'min_files'} and not $opts{'min_files'} =~ /^\d+$/) |
175
|
0 |
0 |
if (not $opts{'dry_run'}) { } |
200
|
0 |
0 |
if ($df->{'per'} < $opts{'du'}) |
205
|
0 |
0 |
if (defined $opts{'ignore'}) { } |
215
|
0 |
0 |
if ($opts{'min_files'} and not defined $files[$opts{'min_files'}]) |
240
|
0 |
0 |
if (defined $opts{'min_files'} and $opts{'min_files'} > 0) |
254
|
0 |
0 |
if ($opts{'dry_run'} and not -w $files_info[$int]{'name'}) { } |
257
|
0 |
0 |
unless unlink $files_info[$int]{'name'} |
262
|
0 |
0 |
if ($@) { } |
274
|
0 |
0 |
if (defined $results->{'unlinked'}[0]) |
277
|
0 |
0 |
if (defined $results->{'unlink_failed'}[0]) |