| 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 {
|
|
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 {
|
|
33
|
0 |
0 |
unless $scheme eq "ftp" or $scheme eq "http"
|
|
37
|
0 |
0 |
if exists $args{'local_dir'}
|
|
39
|
0 |
0 |
if (eval {
|
|
|
0 |
0 |
elsif (eval {
|
|
|
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'} ? :
|