line |
true |
false |
branch |
121
|
1 |
1 |
unless ref $args eq 'HASH' |
150
|
1 |
0 |
unless $permitted_args{$k} |
170
|
0 |
0 |
unless $k =~ /^($default_args_string)$/ |
174
|
0 |
0 |
unless my $ftp = 'Net::FTP'->new($data->{'host'}, %passed_netftp_options) |
177
|
0 |
0 |
unless $ftp->login('anonymous', '-anonymous@') |
181
|
0 |
0 |
unless $ftp->cwd($data->{'dir'}) |
250
|
0 |
0 |
if (not defined $compression) { } |
255
|
0 |
0 |
unless $self->{'eligible_compressions'}{$compression} |
269
|
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) |
274
|
0 |
0 |
if $self->{'verbose'} |
304
|
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) { } |
311
|
0 |
0 |
if ($major % 2 == 0) { } |
312
|
0 |
0 |
if (defined $rc) { } |
348
|
0 |
0 |
if (not $early_dev) { } |
370
|
0 |
0 |
if (not defined $compression) { } |
375
|
0 |
0 |
unless $self->{'eligible_compressions'}{$compression} |
384
|
0 |
0 |
unless (exists $self->{'versions'}) |
455
|
0 |
0 |
unless ref $args eq 'HASH' |
465
|
0 |
0 |
if (defined $args->{'type'}) { } |
467
|
0 |
0 |
unless $eligible_types{$args->{'type'}} |
475
|
0 |
0 |
if (exists $args->{'compression'}) |
481
|
0 |
0 |
if $self->{'verbose'} |
483
|
0 |
0 |
if ($type eq 'prod') { } |
|
0 |
0 |
elsif ($type eq 'dev') { } |
488
|
0 |
0 |
unless $self->{'versions'}{$type}{$b}{'major'} <=> $self->{'versions'}{$type}{$a}{'major'} |
497
|
0 |
0 |
unless $self->{'versions'}{$type}{$b}{'major'} <=> $self->{'versions'}{$type}{$a}{'major'} |
507
|
0 |
0 |
unless $self->{'versions'}{$type}{$b}{'major'} <=> $self->{'versions'}{$type}{$a}{'major'} or $self->{'versions'}{$type}{$b}{'minor'} <=> $self->{'versions'}{$type}{$a}{'minor'} |
540
|
0 |
0 |
unless ref $args eq 'HASH' |
550
|
0 |
0 |
if (defined $args->{'type'}) { } |
552
|
0 |
0 |
unless $eligible_types{$args->{'type'}} |
560
|
0 |
0 |
if (exists $args->{'compression'}) |
566
|
0 |
0 |
if (exists $args->{'path'}) |
567
|
0 |
0 |
unless -d $args->{'path'} |
571
|
0 |
0 |
if (exists $self->{$cache}) { } |
572
|
0 |
0 |
if $self->{'verbose'} |
576
|
0 |
0 |
if $self->{'verbose'} |
583
|
0 |
0 |
if $self->{'verbose'} |
585
|
0 |
0 |
unless $self->{'ftp'}->get($latest) |
589
|
0 |
0 |
if $self->{'verbose'} |
591
|
0 |
0 |
unless move($latest, $rv) |
592
|
0 |
0 |
if $self->{'verbose'} |