Branch Coverage

blib/lib/CPAN/FTP.pm

Criterion	Covered	Total	%
branch	60	398	15.0

line	true	false	branch
23	0	0	$fh ? :
27	0	0	if $^O eq 'MSWin32'
32	0	0	unless open $fh, "+>>$file"
37	0	0	if ($sleep > 3)
44	0	0	if ($sleep <= 3) { }
	0	0	elsif ($sleep <= 6) { }
50	0	0	unless open $fh, "+>>$file"
54	0	0	if ($@)
55	0	0	if (ref $@) { }
56	0	0	if (ref $@ eq 'CPAN::Exception::yaml_not_installed') { }
	0	0	elsif (ref $@ eq 'CPAN::Exception::yaml_process_error') { }
64	0	0	unless rename $file, $to
77	6	0	if ('CPAN'->has_inst('Time::HiRes')) { }
99	0	3	if $CPAN::DEBUG
100	0	3	if ($CPAN::META->has_inst($yaml_module))
107	0	0	if $sdebug
111	0	0	if $sdebug
112	0	0	if $sdebug
124	0	0	if $sdebug
125	0	0	if $sdebug
126	0	0	if $sdebug
130	0	0	if ($sdebug)
139	0	0	if $^O eq 'MSWin32' or $^O eq 'os2'
140	0	0	if -e $sfile
141	0	0	unless rename "$sfile.$$", $sfile
153	0	0	unless (@stat)
159	0	0	unless chmod $stat[2], $dest
162	0	0	if $@
165	0	0	unless (chown $stat[4], $stat[5], $dest)
173	0	0	if $@
181	0	3	if ($file =~ s[/CHECKSUMS(.gz)?$][])
185	0	0	if $last->{'end'} - time > 3600
186	0	0	unless $last->{'file'}
187	0	0	unless $file eq dirname($last->{'file'})
191	0	3	if ($CPAN::Config->{'randomize_urllist'} and rand 1 < $CPAN::Config->{'randomize_urllist'}) { }
205	0	3	if $CPAN::DEBUG
208	0	3	unless (ref $CPAN::Config->{'urllist'} eq 'ARRAY')
212	3	0	if defined $_
213	0	3	if $with_defaults
215	0	3	if $CPAN::DEBUG
216	0	3	if (UNIVERSAL::can($u, 'text')) { }
217	0	0	unless substr($u->{'TEXT'}, -1) eq '/'
219	3	0	unless substr($u, -1) eq '/'
229	0	0	if $CPAN::DEBUG
234	0	0	unless ($ftp)
238	0	0	unless defined $ftp
239	0	0	if $CPAN::DEBUG{'FTP'} & $CPAN::DEBUG
241	0	0	unless ($ftp->login('anonymous', $Config::Config{'cf_email'}))
246	0	0	unless ($ftp->cwd($dir))
252	0	0	if $CPAN::DEBUG
253	0	0	unless ($ftp->get($file, $target))
294	0	3	unless defined $aslocal
296	0	3	if ($CPAN::DEBUG)
301	0	3	if ($^O eq 'MacOS')
305	0	0	if (length $name > 31)
325	0	0	if (-f $aslocal and -r _ and not $force & 1)
327	0	0	if ($size = -s $aslocal) { }
328	0	0	if $CPAN::DEBUG
332	0	0	unless unlink $aslocal
338	0	3	if (-f $aslocal)
345	3	0	if ($CPAN::META->has_usable('LWP::UserAgent'))
346	1	2	unless ($CPAN::FTP::Ua)
349	0	1	if ($@) { }
350	0	0	if $CPAN::DEBUG
355	0	1	if $var = $CPAN::Config->{'ftp_proxy'} || $ENV{'ftp_proxy'}
357	0	1	if $var = $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'}
359	0	1	if $var = $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'}
364	0	9	if $CPAN::Config->{$prx}
372	3	0	if ($force & 2) { }
377	0	0	unless (substr($ccurllist->[$b], 0, 4) eq 'file') <=> (substr($ccurllist->[$a], 0, 4) eq 'file')
390	0	3	if $CPAN::DEBUG
402	2	1	if ($CPAN::FTP::Themethod) { }
408	0	3	if $^O eq 'MacOS'
412	0	3	exists $CPAN::Config->{'ftp_passive'} ? :
416	0	3	if not defined $CPAN::FTP::connect_to_internet_ok and defined $_
421	0	3	unless $scheme and 'file' eq $scheme
424	0	3	if ($defaultsites) { }
425	0	0	unless (defined $CPAN::FTP::connect_to_internet_ok)
435	0	0	if ($answer =~ /^y/i) { }
441	0	0	if ($CPAN::FTP::connect_to_internet_ok) { }
452	3	0	$level =~ /dleasy/ ? :
456	0	3	if $CPAN::DEBUG
458	0	3	if (my $recommend = $self->_recommend_url_for($file, \@urllist))
462	0	3	if $CPAN::DEBUG
464	3	0	if ($ret) { }
465	0	3	if $CPAN::DEBUG
466	0	3	if ($ret eq $aslocal_tempfile) { }
	3	0	elsif (-f $ret and $scheme eq 'file') { }
469	0	0	unless rename $aslocal_tempfile, $aslocal
482	0	3	if $CPAN::DEBUG
486	0	0	if $CPAN::Signal
489	3	0	if ($ret)
492	0	3	if $CPAN::DEBUG
494	0	3	if $CPAN::DEBUG
495	3	0	if ($ret)
499	0	0	unless ($CPAN::Signal)
502	0	0	if (@{$CPAN::Config->{'urllist'};}) { }
515	0	0	if ($maybe_restore)
527	0	0	unless -w $aslocal_dir
538	3	0	if $scheme
559	0	3	if $CPAN::DEBUG
560	3	0	if ($url =~ /^file:/)
562	3	0	if ($CPAN::META->has_inst('URI::URL')) { }
575	0	0	if not -f $l and $l =~ m[^/\w:]
578	0	3	if $CPAN::DEBUG
579	0	3	if (-f $l and -r _)
586	3	0	if ($l =~ /(.+)\.gz$/) { }
	0	0	elsif (-f $l and -r _) { }
	0	0	elsif (-f "$l.gz") { }
588	3	0	if (-f $ungz and -r _) { }
	0	0	elsif (-f $l and -r _) { }
594	0	0	if (-f $aslocal and -s _) { }
	0	0	elsif (not -s $aslocal) { }
	0	0	elsif (-f $l) { }
602	0	0	if $@
616	0	0	if $CPAN::DEBUG
618	0	0	if (-f $aslocal) { }
623	0	0	if $@
630	0	0	if $CPAN::DEBUG
631	0	0	if ($CPAN::META->has_usable('LWP')) { }
	0	0	elsif ($url =~ /^http:/i and $CPAN::META->has_usable('HTTP::Tiny')) { }
633	0	0	unless ($CPAN::FTP::Ua)
636	0	0	if ($@)
641	0	0	if ($res->is_success) { }
	0	0	elsif (not $url =~ /\.gz(?!\n)\Z/) { }
652	0	0	if ($res->is_success)
653	0	0	if (eval { do { 'CPAN::Tarzip'->new("$aslocal.gz")->gunzip($aslocal) } })
674	0	0	!($url =~ /\.gz(?!\n)\Z/) ? :
677	0	0	if ($res and $res->{'success'}) { }
	0	0	elsif ($res and $res->{'status'} ne '599') { }
	0	0	elsif ($res and $res->{'status'} eq '599') { }
709	0	0	if $CPAN::Signal
710	0	0	if ($url =~ m[^ftp://(.*?)/(.*)/(.*)])
712	0	0	if $CPAN::DEBUG
714	0	0	if ($CPAN::META->has_usable('Net::FTP')) { }
717	0	0	if $CPAN::DEBUG
719	0	0	if ('CPAN::FTP'->ftp_get($host, $dir, $getfile, $aslocal))
723	0	0	unless ($aslocal =~ /\.gz(?!\n)\Z/)
726	0	0	if ('CPAN::FTP'->ftp_get($host, $dir, "$getfile.gz", $gz) and eval { do { 'CPAN::Tarzip'->new($gz)->gunzip($aslocal) } })
738	0	0	if $CPAN::DEBUG
741	0	0	if (UNIVERSAL::can($ro_url, 'text') and $ro_url->{'FROM'} eq 'USER')
749	0	0	if $ret
751	0	0	if $CPAN::Signal
778	0	0	if ($url =~ m[^([^:]+)://(.*?)/(.*)/(.*)]) { }
784	0	0	if $proto eq 'file'
790	0	0	if $CPAN::DEBUG
797	0	0	unless defined $funkyftp
798	0	0	if $funkyftp =~ /^\s*$/
803	0	0	if ($f eq 'lynx') { }
	0	0	elsif ($f eq 'ncftp') { }
	0	0	elsif ($f eq 'wget') { }
	0	0	elsif ($f eq 'curl') { }
	0	0	elsif ($f eq 'ncftpget') { }
806	0	0	unless $url =~ m[\Aftp://]
813	0	0	if ($proxy_vars->{'http_proxy'})
817	0	0	unless $url =~ m[\Aftp://]
830	0	0	if $CPAN::DEBUG
832	0	0	if ($f eq 'lynx')
834	0	0	if (-s $aslocal) { }
836	0	0	unless open FH, $aslocal
839	0	0	if ($content =~ /^<.*(