| line |
true |
false |
branch |
|
16
|
0 |
0 |
unless my($scheme, $host, $path, $file) = $args{'url'} =~ m[^(\w+)://([^/]+)(.+)/(.+)] |
|
18
|
0 |
0 |
if ($scheme eq 'http' and not eval {
do {
require LWP::Simple;
1
}
}) |
|
20
|
0 |
0 |
unless $args{'url'} = $args{'ftp_url'} |
|
22
|
0 |
0 |
unless ($scheme, $host, $path, $file) = $args{'url'} =~ m[^(\w+)://([^/]+)(.+)/(.+)] |
|
28
|
0 |
0 |
unless (eval {
do {
require Socket;
Socket::inet_aton($host)
}
}) |
|
33
|
0 |
0 |
unless $scheme eq 'ftp' or $scheme eq 'http' |
|
37
|
0 |
0 |
if exists $args{'local_dir'} |
|
39
|
0 |
0 |
if (eval {
do {
require LWP::Simple;
1
}
}) { } |
|
|
0 |
0 |
elsif (eval {
do {
require Net::FTP;
1
}
}) { } |
|
|
0 |
0 |
elsif (my $ftp = $self->can_run('ftp')) { } |
|
48
|
0 |
0 |
unless $ftp->get($file) |
|
57
|
0 |
0 |
unless ($fh->open("|$ftp -n")) |
|
78
|
0 |
0 |
unless (-f $file) |
|
83
|
0 |
0 |
if exists $args{'size'} and -s $file != $args{'size'} |
|
84
|
0 |
0 |
if exists $args{'run'} |
|
85
|
0 |
0 |
if $args{'remove'} |
|
88
|
0 |
0 |
!exists $args{'check_for'} || -e $args{'check_for'} ? : |