| line |
true |
false |
branch |
|
186
|
0 |
0 |
unless $filename =~ /\A
(\w+(?:-\w+)*)
-v?(\d+(?:\.\d+){0,}(_\d+|-TRIAL)?)
\.$re_archive_ext
\z/xi |
|
219
|
0 |
0 |
if defined $username and defined $password |
|
221
|
0 |
0 |
unless -f $path |
|
222
|
0 |
0 |
unless open my $fh, "<", $path |
|
224
|
0 |
0 |
if ($line =~ /^user\s+(.+)/) { } |
|
|
0 |
0 |
elsif ($line =~ /^password\s+(.+)/) { } |
|
227
|
0 |
0 |
unless (defined $username and defined $password) |
|
245
|
0 |
0 |
if ($resp->code =~ /^[5]/) |
|
248
|
0 |
0 |
if ($delay < 0) { } |
|
256
|
0 |
0 |
$args{'note'} ? : |
|
305
|
0 |
0 |
unless my $files = $args{'files'} |
|
316
|
0 |
0 |
unless (-f $file) |
|
321
|
0 |
0 |
if ($args{'-dry_run'}) |
|
334
|
0 |
0 |
length $subdir ? : |
|
343
|
0 |
0 |
unless ($httpres->is_success) |
|
352
|
0 |
0 |
if ($res->[0] =~ /^2/) { } |
|
362
|
0 |
0 |
if ++$i >= @$files |
|
363
|
0 |
0 |
if ($args{'delay'}) |
|
424
|
0 |
0 |
unless String::Wildcard::Bash::contains_wildcard($_) |
|
430
|
0 |
0 |
unless $httpres->is_success |
|
431
|
0 |
0 |
unless $httpres->content =~ m[Files in directory.+]*>(.+)]s |
|
443
|
0 |
0 |
if ($time0 =~ s/^Scheduled for deletion \(due at //) |
|
448
|
0 |
0 |
if ($rec->{'is_scheduled_for_deletion'}) { } |
|
457
|
0 |
0 |
unless @$q |
|
459
|
0 |
0 |
if (ref $_ eq 'Regexp') { } |
|
460
|
0 |
0 |
if $rec->{'name'} =~ /$_/ |
|
462
|
0 |
0 |
if $rec->{'name'} eq $_ |
|
472
|
0 |
0 |
if defined $args{'size_min'} and $rec->{'size'} < $args{'size_min'} |
|
474
|
0 |
0 |
if defined $args{'size_max'} and $rec->{'size'} > $args{'size_max'} |
|
480
|
0 |
0 |
if defined $args{'mtime_min'} and $rec->{'mtime'} < $args{'mtime_min'} |
|
482
|
0 |
0 |
if defined $args{'mtime_max'} and $rec->{'mtime'} > $args{'mtime_max'} |
|
487
|
0 |
0 |
if (defined $del) |
|
488
|
0 |
0 |
if $del xor $rec->{'is_scheduled_for_deletion'} |
|
492
|
0 |
0 |
$args{'detail'} ? : |
|
496
|
0 |
0 |
if ($args{'detail'}) |
|
546
|
0 |
0 |
if $res->[0] != 200 |
|
549
|
0 |
0 |
if ($args{'newest_n'}) { } |
|
|
0 |
0 |
elsif ($args{'newest'}) { } |
|
559
|
0 |
0 |
if ($file =~ m[/]) |
|
564
|
0 |
0 |
unless (defined $distname) |
|
568
|
0 |
0 |
if ($args{'include_dists'} and @{$args{'include_dists'};} and not grep({$distname eq $_;} @{$args{"include_dists"};})) |
|
572
|
0 |
0 |
if ($args{'exclude_dists'} and @{$args{'exclude_dists'};} and grep {$distname eq $_;} @{$args{"exclude_dists"};}) |
|
577
|
0 |
0 |
if $newest_n and $dev && !$include_dev || !($dev || $include_nondev) |
|
588
|
0 |
0 |
if ($newest_n) |
|
597
|
0 |
0 |
if (@{$dist_versions{$distname};} > $newest_n) |
|
607
|
0 |
0 |
unless $dist_seen{$distrec->{'name'}} |
|
608
|
0 |
0 |
if (grep {$_ eq $distrec->{'version'};} @{$dist_versions{$distrec->{'name'}};}) { } |
|
617
|
0 |
0 |
unless ($args{'detail'}) |
|
622
|
0 |
0 |
if ($newest_n) |
|
625
|
0 |
0 |
if ($args{'detail'}) |
|
628
|
0 |
0 |
$args{'detail'} ? : |
|
677
|
0 |
0 |
if $res->[0] != 200 |
|
680
|
0 |
0 |
unless @$old_files |
|
694
|
0 |
0 |
if $res->[0] != 200 or $args{'-dry_run'} |
|
696
|
0 |
0 |
if (@$deleted_files) { } |
|
713
|
0 |
0 |
if ($which eq 'delete') { } |
|
|
0 |
0 |
elsif ($which eq 'undelete') { } |
|
|
0 |
0 |
elsif ($which eq 'reindex') { } |
|
724
|
0 |
0 |
unless @$files0 |
|
731
|
0 |
0 |
if (grep {String::Wildcard::Bash::contains_wildcard($_);} @$files0, @$protect_files) |
|
734
|
0 |
0 |
if ($which eq 'delete' and grep {$_ =~ /\A\*\.?/;} @$files0) { } |
|
|
0 |
0 |
elsif ($which eq 'reindex' and grep {$_ =~ /\A\*(z|\.?gz|\.?tar\.gz)?\z/;} @$files0) { } |
|
749
|
0 |
0 |
unless $listres->[0] == 200 |
|
754
|
0 |
0 |
if (String::Wildcard::Bash::contains_wildcard($file)) { } |
|
758
|
0 |
0 |
if $f =~ /$re/ and not grep({$_ eq $f;} @files) |
|
766
|
0 |
0 |
if (String::Wildcard::Bash::contains_wildcard($protect_file)) { } |
|
771
|
0 |
0 |
if ($_ =~ /$re/) { } |
|
781
|
0 |
0 |
if ($_ eq $protect_file) { } |
|
792
|
0 |
0 |
unless (@files) |
|
796
|
0 |
0 |
if ($args{'-dry_run'}) { } |
|
810
|
0 |
0 |
$which eq 'delete' ? : |
|
|
0 |
0 |
$which eq 'undelete' ? : |
|
|
0 |
0 |
$which eq 'reindex' ? : |
|
|
0 |
0 |
$which =~ /delete/ ? : |
|
|
0 |
0 |
$which eq 'reindex' ? : |
|
818
|
0 |
0 |
unless $httpres->is_success |
|
819
|
0 |
0 |
if $which =~ /delete|undelete/ |
|
929
|
0 |
0 |
if (@$q == 1) |
|
942
|
0 |
0 |
unless $httpres->is_success |
|
946
|
0 |
0 |
unless String::Wildcard::Bash::contains_wildcard($_) |
|
953
|
0 |
0 |
if $httpres->content =~ /No records found/ |
|
954
|
0 |
0 |
unless $httpres->content =~ m[]*>module.+?]*>(.+?)]s |
|
971
|
0 |
0 |
unless @$q > 1 |
|
973
|
0 |
0 |
if (ref $_ eq 'Regexp') { } |
|
974
|
0 |
0 |
if $rec->{'module'} =~ /$_/ |
|
976
|
0 |
0 |
if $rec->{'module'} eq $_ |
|
984
|
0 |
0 |
if ($args{'type'}) |
|
985
|
0 |
0 |
unless $rec->{'type'} eq $args{'type'} |
|
988
|
0 |
0 |
$args{'detail'} ? : |
|
994
|
0 |
0 |
if ($args{'detail'}) |