| line |
true |
false |
branch |
|
140
|
1 |
2 |
unless ref $args eq 'HASH' |
|
143
|
1 |
1 |
unless $args->{'distribution'} |
|
184
|
1 |
0 |
unless $permitted_args{$k} |
|
204
|
0 |
0 |
unless $k =~ /^($default_args_string)$/ |
|
208
|
0 |
0 |
unless my $ftp = 'Net::FTP'->new($data->{'host'}, %passed_netftp_options) |
|
211
|
0 |
0 |
unless $ftp->login('anonymous', '-anonymous@') |
|
216
|
0 |
0 |
unless $ftp->cwd($data->{'subdir'}) |
|
261
|
0 |
0 |
unless my(@releases) = grep({/^$self->{'distribution'}-v?\d+\.\d+(?:\.\d+)?\.$extensions$/;} $self->{'ftp'}->ls) |
|
265
|
0 |
0 |
if (($v) = $r =~ /^$self->{'distribution'}-v?(\d+\.\d+)\.$extensions$/) { } |
|
|
0 |
0 |
elsif (($w, $x, $y) = $r =~ /^$self->{'distribution'}-v?(\d+)\.(\d+)\.(\d+)\.$extensions$/) { } |
|
312
|
0 |
0 |
unless ref $args eq 'HASH' |
|
316
|
0 |
0 |
if (exists $args->{'path'}) |
|
317
|
0 |
0 |
unless -d $args->{'path'} |
|
321
|
0 |
0 |
if (exists $self->{'cache'} and ref $self->{'cache'} eq 'ARRAY' and scalar @{$self->{'cache'};}) { } |
|
323
|
0 |
0 |
if $args->{'verbose'} |
|
330
|
0 |
0 |
if $self->{'verbose'} |
|
332
|
0 |
0 |
unless $self->{'ftp'}->get($latest) |
|
336
|
0 |
0 |
if $self->{'verbose'} |
|
338
|
0 |
0 |
unless move($latest, $rv) |
|
339
|
0 |
0 |
if $self->{'verbose'} |