| 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'} |