| line |
true |
false |
branch |
|
126
|
1 |
1 |
unless ref $args eq 'HASH' |
|
155
|
1 |
0 |
unless $permitted_args{$k} |
|
175
|
0 |
0 |
unless $k =~ /^($default_args_string)$/ |
|
179
|
0 |
0 |
unless my $ftp = 'Net::FTP'->new($data->{'host'}, %passed_netftp_options) |
|
182
|
0 |
0 |
unless $ftp->login('anonymous', '-anonymous@') |
|
186
|
0 |
0 |
unless $ftp->cwd($data->{'dir'}) |
|
263
|
0 |
0 |
if (not defined $compression) { } |
|
268
|
0 |
0 |
unless $self->{'eligible_compressions'}{$compression} |
|
282
|
0 |
0 |
unless my(@all_releases) = grep({/^perl
(?:
-5\.\d+\.\d+ # 5.6.0 and above
|
5\.00\d(_\d{2})? # 5.003_007 thru 5.005
)
.*? # Account for RC and TRIAL
\.tar # We only want tarballs
\.(?:$compression) # Compression format
$/x;} $self->{'ftp'}->ls) |
|
288
|
0 |
0 |
if $self->{'verbose'} |
|
318
|
0 |
0 |
if ($tb =~ /^
perl-5\.(\d+)
\.(\d+)
(?:-((?:TRIAL|RC)\d+))?
\.tar\.(?:gz|bz2|xz)
$/x) { } |
|
|
0 |
0 |
elsif ($tb =~ /^
perl5\.
(00\d)
(?:_(\d{2}))? # 5.003_007 thru 5.005; account for RC and TRIAL
.*?
\.tar # We only want tarballs
\.gz # Compression format
$/x) { } |
|
325
|
0 |
0 |
if ($major % 2 == 0) { } |
|
326
|
0 |
0 |
if (defined $rc) { } |
|
362
|
0 |
0 |
if (not $early_dev) { } |
|
384
|
0 |
0 |
if (not defined $compression) { } |
|
389
|
0 |
0 |
unless $self->{'eligible_compressions'}{$compression} |
|
398
|
0 |
0 |
unless (exists $self->{'versions'}) |
|
471
|
0 |
0 |
unless ref $args eq 'HASH' |
|
474
|
0 |
0 |
if (defined $args->{'type'}) { } |
|
476
|
0 |
0 |
unless $self->{'eligible_types'}{$args->{'type'}} |
|
484
|
0 |
0 |
if (exists $args->{'compression'}) |
|
490
|
0 |
0 |
if $self->{'verbose'} |
|
492
|
0 |
0 |
if ($type eq 'prod') { } |
|
|
0 |
0 |
elsif ($type eq 'dev') { } |
|
|
0 |
0 |
elsif ($type eq 'rc') { } |
|
516
|
0 |
0 |
if ($core =~ /^00(\d)_(\d+)$/) { } |
|
|
0 |
0 |
elsif ($core =~ /^(\d+)\.(.*?)(?:-((?:TRIAL|RC)\d+))?$/) { } |
|
529
|
0 |
0 |
unless $in{$b}{'minor'} <=> $in{$a}{'minor'} or $in{$b}{'patch'} <=> $in{$a}{'patch'} |
|
542
|
0 |
0 |
unless $self->{'versions'}{$type}{$b}{'major'} <=> $self->{'versions'}{$type}{$a}{'major'} |
|
553
|
0 |
0 |
unless $self->{'versions'}{$type}{$b}{'major'} <=> $self->{'versions'}{$type}{$a}{'major'} or $self->{'versions'}{$type}{$b}{'minor'} <=> $self->{'versions'}{$type}{$a}{'minor'} |
|
586
|
0 |
0 |
unless ref $args eq 'HASH' |
|
589
|
0 |
0 |
if (defined $args->{'type'}) { } |
|
591
|
0 |
0 |
unless $self->{'eligible_types'}{$args->{'type'}} |
|
599
|
0 |
0 |
if (exists $args->{'compression'}) |
|
605
|
0 |
0 |
if (exists $args->{'path'}) |
|
606
|
0 |
0 |
unless -d $args->{'path'} |
|
610
|
0 |
0 |
if (exists $self->{$cache}) { } |
|
611
|
0 |
0 |
if $self->{'verbose'} |
|
615
|
0 |
0 |
if $self->{'verbose'} |
|
622
|
0 |
0 |
if $self->{'verbose'} |
|
624
|
0 |
0 |
unless $self->{'ftp'}->get($latest) |
|
628
|
0 |
0 |
if $self->{'verbose'} |
|
630
|
0 |
0 |
unless move($latest, $rv) |
|
631
|
0 |
0 |
if $self->{'verbose'} |
|
660
|
0 |
0 |
unless ref $args eq 'HASH' |
|
664
|
0 |
0 |
if (exists $args->{'path'}) |
|
665
|
0 |
0 |
unless -d $args->{'path'} |
|
672
|
0 |
0 |
unless $all_releases{$args->{'release'}} |
|
674
|
0 |
0 |
if $self->{'verbose'} |
|
677
|
0 |
0 |
unless $self->{'ftp'}->get($args->{'release'}) |
|
680
|
0 |
0 |
if $self->{'verbose'} |
|
682
|
0 |
0 |
unless move($args->{'release'}, $rv) |
|
684
|
0 |
0 |
if $self->{'verbose'} |