blib/lib/CPAN/FTP.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 16 | 189 | 8.4 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
26 | 0 | 0 | 0 | exists &Errno::EAGAIN and $! == &Errno::EAGAIN |
38 | 0 | 0 | 0 | defined $ftpstats_size and $ftpstats_size <= 0 |
125 | 0 | 0 | 0 | $fh and defined fileno $fh |
135 | 0 | 0 | 0 | @{[] unless $fullstats->{'history'};} and @{$fullstats->{'history'};} > $ftpstats_size || $time - $fullstats->{'history'}[0]{'start'} > 86400 * $ftpstats_period |
212 | 3 | 0 | 0 | $CPAN::Config->{'randomize_urllist'} and rand 1 < $CPAN::Config->{'randomize_urllist'} |
323 | 0 | 3 | 0 | not defined $CPAN::FTP::connect_to_internet_ok and defined $_ |
335 | 3 | 0 | 0 | -f $aslocal and -r _ |
3 | 0 | 0 | -f $aslocal and -r _ and not $force & 1 | |
359 | 0 | 0 | 0 | $CPAN::META->has_usable("HTTP::Tiny") and $CPAN::META->has_usable("Net::SSLeay") |
0 | 0 | 0 | $CPAN::META->has_usable("HTTP::Tiny") and $CPAN::META->has_usable("Net::SSLeay") and $CPAN::META->has_usable("IO::Socket::SSL") | |
408 | 0 | 0 | 0 | $CPAN::META->has_usable("HTTP::Tiny") and $proto eq 'http' || $CPAN::META->has_usable('Net::SSLeay') && $CPAN::META->has_usable('IO::Socket::SSL') |
427 | 0 | 0 | 0 | $res and $res->{'success'} |
0 | 0 | 0 | $res and $res->{'status'} ne 599 | |
0 | 0 | 0 | $res and $res->{'status'} eq 599 | |
463 | 0 | 0 | 0 | defined $dlprg_configured and length $dlprg_configured |
571 | 0 | 0 | 0 | defined $CPAN::FTP::ThesiteURL and ($ccurllist->[$b] eq $CPAN::FTP::ThesiteURL) <=> ($ccurllist->[$a] eq $CPAN::FTP::ThesiteURL) |
612 | 0 | 0 | 3 | $scheme and "file" eq $scheme |
613 | 3 | 0 | 0 | $sitetag && $sitetag eq 'defaultsites' && !@$ccurllist |
657 | 0 | 0 | 3 | -f $ret and $scheme eq "file" |
766 | 0 | 0 | 0 | not -f $l and $l =~ m[^/\w:] |
770 | 3 | 0 | 0 | -f $l and -r _ |
777 | 0 | 0 | 0 | -f $l and -r _ |
779 | 0 | 0 | 3 | -f $ungz and -r _ |
0 | 0 | 0 | -f $l and -r _ | |
785 | 0 | 0 | 0 | -f $aslocal and -s _ |
822 | 0 | 0 | 0 | $url =~ /^http:/i and $CPAN::META->has_usable("HTTP::Tiny") |
868 | 0 | 0 | 0 | $res and $res->{'success'} |
0 | 0 | 0 | $res and $res->{'status'} ne 599 | |
0 | 0 | 0 | $res and $res->{'status'} eq 599 | |
917 | 0 | 0 | 0 | "CPAN::FTP"->ftp_get($host, $dir, "$getfile.gz", $gz) and eval { do { "CPAN::Tarzip"->new($gz)->gunzip($aslocal) } } |
932 | 0 | 0 | 0 | UNIVERSAL::can($ro_url, "text") and $ro_url->{'FROM'} eq "USER" |
1117 | 0 | 0 | 0 | $ftpbin and length $ftpbin |
0 | 0 | 0 | $ftpbin and length $ftpbin and "MM"->maybe_command($ftpbin) |
line | l | !l | condition |
---|---|---|---|
126 | 0 | 0 | $fullstats->{'history'} ||= [] |
134 | 0 | 0 | $CPAN::Config->{'ftpstats_period'} || 14 |
204 | 0 | 0 | $fullstats->{'history'} || [] |
225 | 0 | 3 | $with_defaults ||= 0 |
228 | 3 | 0 | $CPAN::Config->{'urllist'} ||= [] |
314 | 3 | 0 | $force ||= 0 |
450 | 0 | 0 | $@ || 'Unknown error' |
460 | 0 | 0 | $CPAN::Config->{'devnull'} || '' |
583 | 2 | 1 | $CPAN::FTP::Themethod ||= "" |
892 | 0 | 0 | $@ || 'Unknown error' |
955 | 0 | 0 | $CPAN::Config->{'devnull'} || '' |
1083 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} || '' |
1146 | 0 | 0 | $mtime ||= 0 |
1190 | 0 | 0 | $mtime ||= 0 |
1228 | 0 | 0 | $mtime ||= 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
45 | 0 | 0 | 0 | $fh ||= "FileHandle"->new |
51 | 0 | 0 | 0 | $waitstart ||= localtime() |
135 | 0 | 0 | 0 | @{$fullstats->{'history'};} > $ftpstats_size || $time - $fullstats->{'history'}[0]{'start'} > 86400 * $ftpstats_period |
160 | 0 | 0 | 0 | $^O eq "MSWin32" or $^O eq "os2" |
326 | 0 | 0 | 3 | not defined $ph or $ph |
359 | 0 | 0 | 0 | $CPAN::META->has_usable("HTTP::Tiny") and $CPAN::META->has_usable("Net::SSLeay") and $CPAN::META->has_usable("IO::Socket::SSL") or $CPAN::Config->{'curl'} |
0 | 0 | 0 | $CPAN::META->has_usable("HTTP::Tiny") and $CPAN::META->has_usable("Net::SSLeay") and $CPAN::META->has_usable("IO::Socket::SSL") or $CPAN::Config->{'curl'} or $CPAN::Config->{'wget'} | |
408 | 0 | 0 | 0 | $proto eq 'http' || $CPAN::META->has_usable('Net::SSLeay') && $CPAN::META->has_usable('IO::Socket::SSL') |
0 | 0 | 0 | $CPAN::Config->{'curl'} or $CPAN::Config->{'wget'} | |
423 | 0 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
0 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} | |
549 | 0 | 0 | 0 | $CPAN::Config->{'ftp_proxy'} || $ENV{'ftp_proxy'} |
551 | 0 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
553 | 0 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} |
864 | 0 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
0 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} | |
1079 | 2 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
1162 | 0 | 0 | 0 | $netrc->hasdefault or $netrc->contains($host) |
1296 | 0 | 0 | 0 | $user{$uid} || $uid |
1297 | 0 | 0 | 0 | $group{$gid} || $gid |