blib/lib/CPAN/FTP.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 16 | 180 | 8.8 |
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") | |
413 | 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 | |
556 | 0 | 0 | 0 | defined $CPAN::FTP::ThesiteURL and ($ccurllist->[$b] eq $CPAN::FTP::ThesiteURL) <=> ($ccurllist->[$a] eq $CPAN::FTP::ThesiteURL) |
597 | 0 | 0 | 3 | $scheme and "file" eq $scheme |
598 | 3 | 0 | 0 | $sitetag && $sitetag eq 'defaultsites' && !@$ccurllist |
642 | 0 | 0 | 3 | -f $ret and $scheme eq "file" |
751 | 0 | 0 | 0 | not -f $l and $l =~ m[^/\w:] |
755 | 3 | 0 | 0 | -f $l and -r _ |
762 | 0 | 0 | 0 | -f $l and -r _ |
764 | 0 | 0 | 3 | -f $ungz and -r _ |
0 | 0 | 0 | -f $l and -r _ | |
770 | 0 | 0 | 0 | -f $aslocal and -s _ |
807 | 0 | 0 | 0 | $url =~ /^http:/i and $CPAN::META->has_usable("HTTP::Tiny") |
853 | 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 | |
902 | 0 | 0 | 0 | "CPAN::FTP"->ftp_get($host, $dir, "$getfile.gz", $gz) and eval { do { "CPAN::Tarzip"->new($gz)->gunzip($aslocal) } } |
917 | 0 | 0 | 0 | UNIVERSAL::can($ro_url, "text") and $ro_url->{'FROM'} eq "USER" |
1102 | 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 |
436 | 0 | 0 | $@ || 'Unknown error' |
446 | 0 | 0 | $CPAN::Config->{'devnull'} || '' |
568 | 2 | 1 | $CPAN::FTP::Themethod ||= "" |
877 | 0 | 0 | $@ || 'Unknown error' |
940 | 0 | 0 | $CPAN::Config->{'devnull'} || '' |
1068 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} || '' |
1131 | 0 | 0 | $mtime ||= 0 |
1175 | 0 | 0 | $mtime ||= 0 |
1213 | 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'} | |
403 | 0 | 0 | 0 | $CPAN::Config->{'curl'} or $CPAN::Config->{'wget'} |
409 | 0 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
0 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} | |
534 | 0 | 0 | 0 | $CPAN::Config->{'ftp_proxy'} || $ENV{'ftp_proxy'} |
536 | 0 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
538 | 0 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} |
849 | 0 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
0 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} | |
1064 | 2 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
1147 | 0 | 0 | 0 | $netrc->hasdefault or $netrc->contains($host) |
1281 | 0 | 0 | 0 | $user{$uid} || $uid |
1282 | 0 | 0 | 0 | $group{$gid} || $gid |