| 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'}) |
|
255
|
0 |
0 |
if (not defined $compression) { } |
|
260
|
0 |
0 |
unless $self->{'eligible_compressions'}{$compression} |
|
274
|
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) |
|
280
|
0 |
0 |
if $self->{'verbose'} |
|
310
|
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) { } |
|
317
|
0 |
0 |
if ($major % 2 == 0) { } |
|
318
|
0 |
0 |
if (defined $rc) { } |
|
354
|
0 |
0 |
if (not $early_dev) { } |
|
376
|
0 |
0 |
if (not defined $compression) { } |
|
381
|
0 |
0 |
unless $self->{'eligible_compressions'}{$compression} |
|
390
|
0 |
0 |
unless (exists $self->{'versions'}) |
|
461
|
0 |
0 |
unless ref $args eq 'HASH' |
|
471
|
0 |
0 |
if (defined $args->{'type'}) { } |
|
473
|
0 |
0 |
unless $eligible_types{$args->{'type'}} |
|
481
|
0 |
0 |
if (exists $args->{'compression'}) |
|
487
|
0 |
0 |
if $self->{'verbose'} |
|
489
|
0 |
0 |
if ($type eq 'prod') { } |
|
|
0 |
0 |
elsif ($type eq 'dev') { } |
|
494
|
0 |
0 |
unless $self->{'versions'}{$type}{$b}{'major'} <=> $self->{'versions'}{$type}{$a}{'major'} |
|
503
|
0 |
0 |
unless $self->{'versions'}{$type}{$b}{'major'} <=> $self->{'versions'}{$type}{$a}{'major'} |
|
513
|
0 |
0 |
unless $self->{'versions'}{$type}{$b}{'major'} <=> $self->{'versions'}{$type}{$a}{'major'} or $self->{'versions'}{$type}{$b}{'minor'} <=> $self->{'versions'}{$type}{$a}{'minor'} |
|
546
|
0 |
0 |
unless ref $args eq 'HASH' |
|
556
|
0 |
0 |
if (defined $args->{'type'}) { } |
|
558
|
0 |
0 |
unless $eligible_types{$args->{'type'}} |
|
566
|
0 |
0 |
if (exists $args->{'compression'}) |
|
572
|
0 |
0 |
if (exists $args->{'path'}) |
|
573
|
0 |
0 |
unless -d $args->{'path'} |
|
577
|
0 |
0 |
if (exists $self->{$cache}) { } |
|
578
|
0 |
0 |
if $self->{'verbose'} |
|
582
|
0 |
0 |
if $self->{'verbose'} |
|
589
|
0 |
0 |
if $self->{'verbose'} |
|
591
|
0 |
0 |
unless $self->{'ftp'}->get($latest) |
|
595
|
0 |
0 |
if $self->{'verbose'} |
|
597
|
0 |
0 |
unless move($latest, $rv) |
|
598
|
0 |
0 |
if $self->{'verbose'} |
|
627
|
0 |
0 |
unless ref $args eq 'HASH' |
|
631
|
0 |
0 |
if (exists $args->{'path'}) |
|
632
|
0 |
0 |
unless -d $args->{'path'} |
|
639
|
0 |
0 |
unless $all_releases{$args->{'release'}} |
|
641
|
0 |
0 |
if $self->{'verbose'} |
|
644
|
0 |
0 |
unless $self->{'ftp'}->get($args->{'release'}) |
|
647
|
0 |
0 |
if $self->{'verbose'} |
|
649
|
0 |
0 |
unless move($args->{'release'}, $rv) |
|
651
|
0 |
0 |
if $self->{'verbose'} |