Branch Coverage

inc/Module/Install/Fetch.pm
Criterion Covered Total %
branch 0 34 0.0


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'} ? :