blib/lib/CPAN/FTP.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 15 | 143 | 10.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'} |
346 | 3 | 0 | 0 | -f $aslocal and -r _ |
3 | 0 | 0 | -f $aslocal and -r _ and not $force & 1 | |
398 | 0 | 0 | 0 | defined $CPAN::FTP::ThesiteURL and ($ccurllist->[$b] eq $CPAN::FTP::ThesiteURL) <=> ($ccurllist->[$a] eq $CPAN::FTP::ThesiteURL) |
437 | 0 | 3 | 0 | not defined $CPAN::FTP::connect_to_internet_ok and defined $_ |
442 | 0 | 0 | 3 | $scheme and 'file' eq $scheme |
443 | 3 | 0 | 0 | $sitetag && $sitetag eq 'defaultsites' && !@$ccurllist |
487 | 0 | 0 | 3 | -f $ret and $scheme eq 'file' |
596 | 0 | 0 | 0 | not -f $l and $l =~ m[^/\w:] |
600 | 3 | 0 | 0 | -f $l and -r _ |
607 | 0 | 0 | 0 | -f $l and -r _ |
609 | 0 | 0 | 3 | -f $ungz and -r _ |
0 | 0 | 0 | -f $l and -r _ | |
615 | 0 | 0 | 0 | -f $aslocal and -s _ |
652 | 0 | 0 | 0 | $url =~ /^http:/i and $CPAN::META->has_usable('HTTP::Tiny') |
698 | 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' | |
747 | 0 | 0 | 0 | 'CPAN::FTP'->ftp_get($host, $dir, "$getfile.gz", $gz) and eval { do { 'CPAN::Tarzip'->new($gz)->gunzip($aslocal) } } |
762 | 0 | 0 | 0 | UNIVERSAL::can($ro_url, 'text') and $ro_url->{'FROM'} eq 'USER' |
947 | 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 |
410 | 2 | 1 | $CPAN::FTP::Themethod ||= '' |
722 | 0 | 0 | $@ || 'Unknown error' |
785 | 0 | 0 | $CPAN::Config->{'devnull'} || '' |
913 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} || '' |
976 | 0 | 0 | $mtime ||= 0 |
1020 | 0 | 0 | $mtime ||= 0 |
1058 | 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' |
376 | 0 | 0 | 0 | $CPAN::Config->{'ftp_proxy'} || $ENV{'ftp_proxy'} |
378 | 0 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
380 | 0 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} |
694 | 0 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
0 | 0 | 0 | $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} | |
909 | 2 | 0 | 0 | $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
992 | 0 | 0 | 0 | $netrc->hasdefault or $netrc->contains($host) |
1126 | 0 | 0 | 0 | $user{$uid} || $uid |
1127 | 0 | 0 | 0 | $group{$gid} || $gid |