| line |
true |
false |
branch |
|
15
|
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
}
})
|
|
19
|
0 |
0 |
unless $args{'url'} = $args{'ftp_url'}
|
|
21
|
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'}
|
|
87
|
0 |
0 |
!exists($args{'check_for'}) || -e $args{'check_for'} ? :
|