| blib/lib/CPAN/FTP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 18 | 133 | 13.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 191 | 3 | 0 | 0 | $CPAN::Config->{'randomize_urllist'} and rand 1 < $CPAN::Config->{'randomize_urllist'} |
| 325 | 3 | 0 | 0 | -f $aslocal and -r _ |
| 3 | 0 | 0 | -f $aslocal and -r _ and not $force & 1 | |
| 377 | 0 | 0 | 0 | defined $CPAN::FTP::ThesiteURL and ($ccurllist->[$b] eq $CPAN::FTP::ThesiteURL) <=> ($ccurllist->[$a] eq $CPAN::FTP::ThesiteURL) |
| 416 | 0 | 3 | 0 | not defined $CPAN::FTP::connect_to_internet_ok and defined $_ |
| 421 | 0 | 0 | 3 | $scheme and 'file' eq $scheme |
| 422 | 3 | 0 | 0 | $sitetag && $sitetag eq 'defaultsites' && !@$ccurllist |
| 466 | 0 | 0 | 3 | -f $ret and $scheme eq 'file' |
| 575 | 0 | 0 | 0 | not -f $l and $l =~ m[^/\w:] |
| 579 | 3 | 0 | 0 | -f $l and -r _ |
| 586 | 0 | 0 | 0 | -f $l and -r _ |
| 588 | 0 | 0 | 3 | -f $ungz and -r _ |
| 0 | 0 | 0 | -f $l and -r _ | |
| 594 | 0 | 0 | 0 | -f $aslocal and -s _ |
| 631 | 0 | 0 | 0 | $url =~ /^http:/ and $CPAN::META->has_usable('HTTP::Tiny') |
| 677 | 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' | |
| 726 | 0 | 0 | 0 | 'CPAN::FTP'->ftp_get($host, $dir, "$getfile.gz", $gz) and eval { do { 'CPAN::Tarzip'->new($gz)->gunzip($aslocal) } } |
| 741 | 0 | 0 | 0 | UNIVERSAL::can($ro_url, 'text') and $ro_url->{'FROM'} eq 'USER' |
| 926 | 0 | 0 | 0 | $ftpbin and length $ftpbin |
| 0 | 0 | 0 | $ftpbin and length $ftpbin and 'MM'->maybe_command($ftpbin) |
| line | l | !l | condition |
|---|---|---|---|
| 110 | 0 | 0 | $fullstats->{'history'} ||= [] |
| 116 | 0 | 0 | $CPAN::Config->{'ftpstats_size'} || 99 |
| 117 | 0 | 0 | $CPAN::Config->{'ftpstats_period'} || 14 |
| 183 | 0 | 0 | $fullstats->{'history'} || [] |
| 204 | 0 | 3 | $with_defaults ||= 0 |
| 207 | 3 | 0 | $CPAN::Config->{'urllist'} ||= [] |
| 293 | 3 | 0 | $force ||= 0 |
| 389 | 2 | 1 | $CPAN::FTP::Themethod ||= '' |
| 701 | 0 | 0 | $@ || 'Unknown error' |
| 764 | 0 | 0 | $CPAN::Config->{'devnull'} || '' |
| 892 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} || '' |
| 955 | 0 | 0 | $mtime ||= 0 |
| 999 | 0 | 0 | $mtime ||= 0 |
| 1037 | 0 | 0 | $mtime ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 29 | 0 | 0 | 0 | $fh ||= 'FileHandle'->new |
| 36 | 0 | 0 | 0 | $waitstart ||= localtime() |
| 118 | 0 | 0 | 0 | @{$fullstats->{'history'};} > $ftpstats_size or $time - $fullstats->{'history'}[0]{'start'} > 86400 * $ftpstats_period |
| 139 | 0 | 0 | 0 | $^O eq 'MSWin32' or $^O eq 'os2' |
| 355 | 0 | 0 | 1 | $CPAN::Config->{'ftp_proxy'} || $ENV{'ftp_proxy'} |
| 357 | 0 | 0 | 1 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
| 359 | 0 | 0 | 1 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} |
| 673 | 0 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
| 0 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} | |
| 888 | 2 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
| 971 | 0 | 0 | 0 | $netrc->hasdefault or $netrc->contains($host) |
| 1105 | 0 | 0 | 0 | $user{$uid} || $uid |
| 1106 | 0 | 0 | 0 | $group{$gid} || $gid |