| blib/lib/CPAN/FTP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 19 | 133 | 14.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 185 | 3 | 0 | 0 | $$CPAN::Config{'randomize_urllist'} and rand 1 < $$CPAN::Config{'randomize_urllist'} |
| 319 | 3 | 0 | 0 | -f $aslocal and -r _ |
| 3 | 0 | 0 | -f $aslocal and -r _ and not $force & 1 | |
| 369 | 0 | 0 | 0 | defined $CPAN::FTP::ThesiteURL and ($$ccurllist[$b] eq $CPAN::FTP::ThesiteURL) <=> ($$ccurllist[$a] eq $CPAN::FTP::ThesiteURL) |
| 410 | 0 | 3 | 0 | not defined $CPAN::FTP::connect_to_internet_ok and defined $_ |
| 415 | 0 | 0 | 3 | $scheme and 'file' eq $scheme |
| 416 | 3 | 0 | 0 | $sitetag && $sitetag eq 'defaultsites' && !@$ccurllist |
| 460 | 0 | 0 | 3 | -f $ret and $scheme eq 'file' |
| 569 | 0 | 0 | 0 | not -f $l and $l =~ m[^/\w:] |
| 573 | 3 | 0 | 0 | -f $l and -r _ |
| 580 | 0 | 0 | 0 | -f $l and -r _ |
| 582 | 0 | 0 | 3 | -f $ungz and -r _ |
| 0 | 0 | 0 | -f $l and -r _ | |
| 588 | 0 | 0 | 0 | -f $aslocal and -s _ |
| 625 | 0 | 0 | 0 | $url =~ /^http:/ and $CPAN::META->has_usable('HTTP::Tiny') |
| 671 | 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' | |
| 720 | 0 | 0 | 0 | 'CPAN::FTP'->ftp_get($host, $dir, "$getfile.gz", $gz) and eval { do { 'CPAN::Tarzip'->new($gz)->gunzip($aslocal) } } |
| 735 | 0 | 0 | 0 | UNIVERSAL::can($ro_url, 'text') and $$ro_url{'FROM'} eq 'USER' |
| 920 | 0 | 0 | 0 | $ftpbin and length $ftpbin |
| 0 | 0 | 0 | $ftpbin and length $ftpbin and 'MM'->maybe_command($ftpbin) |
| line | l | !l | condition |
|---|---|---|---|
| 104 | 0 | 0 | $$fullstats{'history'} ||= [] |
| 110 | 0 | 0 | $$CPAN::Config{'ftpstats_size'} || 99 |
| 111 | 0 | 0 | $$CPAN::Config{'ftpstats_period'} || 14 |
| 177 | 0 | 0 | $$fullstats{'history'} || [] |
| 198 | 0 | 3 | $with_defaults ||= 0 |
| 201 | 3 | 0 | $$CPAN::Config{'urllist'} ||= [] |
| 287 | 3 | 0 | $force ||= 0 |
| 383 | 2 | 1 | $CPAN::FTP::Themethod ||= '' |
| 695 | 0 | 0 | $@ || 'Unknown error' |
| 758 | 0 | 0 | $$CPAN::Config{'devnull'} || '' |
| 886 | 2 | 0 | $$CPAN::Config{'no_proxy'} || $ENV{'no_proxy'} || '' |
| 949 | 0 | 0 | $mtime ||= 0 |
| 993 | 0 | 0 | $mtime ||= 0 |
| 1031 | 0 | 0 | $mtime ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 29 | 0 | 0 | 0 | $fh ||= 'FileHandle'->new |
| 36 | 0 | 0 | 0 | $waitstart ||= localtime() |
| 112 | 0 | 0 | 0 | @{$$fullstats{'history'};} > $ftpstats_size or $time - $$fullstats{'history'}[0]{'start'} > 86400 * $ftpstats_period |
| 133 | 0 | 0 | 0 | $^O eq 'MSWin32' or $^O eq 'os2' |
| 348 | 0 | 0 | 1 | $$CPAN::Config{'ftp_proxy'} || $ENV{'ftp_proxy'} |
| 350 | 0 | 0 | 1 | $$CPAN::Config{'http_proxy'} || $ENV{'http_proxy'} |
| 352 | 0 | 0 | 1 | $$CPAN::Config{'no_proxy'} || $ENV{'no_proxy'} |
| 664 | 0 | 0 | 0 | $$CPAN::Config{'http_proxy'} || $ENV{'http_proxy'} |
| 0 | 0 | 0 | $$CPAN::Config{'no_proxy'} || $ENV{'no_proxy'} | |
| 882 | 2 | 0 | 0 | $$CPAN::Config{'http_proxy'} || $ENV{'http_proxy'} |
| 965 | 0 | 0 | 0 | $netrc->hasdefault or $netrc->contains($host) |
| 1099 | 0 | 0 | 0 | $user{$uid} || $uid |
| 1100 | 0 | 0 | 0 | $group{$gid} || $gid |