| blib/lib/CPAN/FTP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 15 | 133 | 11.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 205 | 3 | 0 | 0 | $CPAN::Config->{'randomize_urllist'} and rand 1 < $CPAN::Config->{'randomize_urllist'} |
| 339 | 3 | 0 | 0 | -f $aslocal and -r _ |
| 3 | 0 | 0 | -f $aslocal and -r _ and not $force & 1 | |
| 391 | 0 | 0 | 0 | defined $CPAN::FTP::ThesiteURL and ($ccurllist->[$b] eq $CPAN::FTP::ThesiteURL) <=> ($ccurllist->[$a] eq $CPAN::FTP::ThesiteURL) |
| 430 | 0 | 3 | 0 | not defined $CPAN::FTP::connect_to_internet_ok and defined $_ |
| 435 | 0 | 0 | 3 | $scheme and 'file' eq $scheme |
| 436 | 3 | 0 | 0 | $sitetag && $sitetag eq 'defaultsites' && !@$ccurllist |
| 480 | 0 | 0 | 3 | -f $ret and $scheme eq 'file' |
| 589 | 0 | 0 | 0 | not -f $l and $l =~ m[^/\w:] |
| 593 | 3 | 0 | 0 | -f $l and -r _ |
| 600 | 0 | 0 | 0 | -f $l and -r _ |
| 602 | 0 | 0 | 3 | -f $ungz and -r _ |
| 0 | 0 | 0 | -f $l and -r _ | |
| 608 | 0 | 0 | 0 | -f $aslocal and -s _ |
| 645 | 0 | 0 | 0 | $url =~ /^http:/i and $CPAN::META->has_usable('HTTP::Tiny') |
| 691 | 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' | |
| 740 | 0 | 0 | 0 | 'CPAN::FTP'->ftp_get($host, $dir, "$getfile.gz", $gz) and eval { do { 'CPAN::Tarzip'->new($gz)->gunzip($aslocal) } } |
| 755 | 0 | 0 | 0 | UNIVERSAL::can($ro_url, 'text') and $ro_url->{'FROM'} eq 'USER' |
| 940 | 0 | 0 | 0 | $ftpbin and length $ftpbin |
| 0 | 0 | 0 | $ftpbin and length $ftpbin and 'MM'->maybe_command($ftpbin) |
| line | l | !l | condition |
|---|---|---|---|
| 124 | 0 | 0 | $fullstats->{'history'} ||= [] |
| 130 | 0 | 0 | $CPAN::Config->{'ftpstats_size'} || 99 |
| 131 | 0 | 0 | $CPAN::Config->{'ftpstats_period'} || 14 |
| 197 | 0 | 0 | $fullstats->{'history'} || [] |
| 218 | 0 | 3 | $with_defaults ||= 0 |
| 221 | 3 | 0 | $CPAN::Config->{'urllist'} ||= [] |
| 307 | 3 | 0 | $force ||= 0 |
| 403 | 2 | 1 | $CPAN::FTP::Themethod ||= '' |
| 715 | 0 | 0 | $@ || 'Unknown error' |
| 778 | 0 | 0 | $CPAN::Config->{'devnull'} || '' |
| 906 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} || '' |
| 969 | 0 | 0 | $mtime ||= 0 |
| 1013 | 0 | 0 | $mtime ||= 0 |
| 1051 | 0 | 0 | $mtime ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 43 | 0 | 0 | 0 | $fh ||= 'FileHandle'->new |
| 49 | 0 | 0 | 0 | $waitstart ||= localtime() |
| 132 | 0 | 0 | 0 | @{$fullstats->{'history'};} > $ftpstats_size or $time - $fullstats->{'history'}[0]{'start'} > 86400 * $ftpstats_period |
| 153 | 0 | 0 | 0 | $^O eq 'MSWin32' or $^O eq 'os2' |
| 369 | 0 | 0 | 0 | $CPAN::Config->{'ftp_proxy'} || $ENV{'ftp_proxy'} |
| 371 | 0 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
| 373 | 0 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} |
| 687 | 0 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
| 0 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} | |
| 902 | 2 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
| 985 | 0 | 0 | 0 | $netrc->hasdefault or $netrc->contains($host) |
| 1119 | 0 | 0 | 0 | $user{$uid} || $uid |
| 1120 | 0 | 0 | 0 | $group{$gid} || $gid |