blib/lib/CPAN.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 23 | 170 | 13.5 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
388 | 0 | 0 | 0 | ref $err and $err->isa("CPAN::Exception::blocked_urllist") |
421 | 0 | 0 | 0 | ref $err and $reported_error eq ref $err |
452 | 0 | 0 | 0 | $CPAN::term and $CPAN::term->can("ornaments") |
477 | 0 | 0 | 0 | $CPAN::term and $CPAN::term->can("GetHistory") |
526 | 3 | 0 | 0 | $yaml_module ne "YAML" and not $CPAN::META->has_inst($yaml_module) |
534 | 0 | 3 | 0 | $yaml_module eq "YAML" and $CPAN::META->has_inst($yaml_module) |
3 | 0 | 0 | $yaml_module eq "YAML" and $CPAN::META->has_inst($yaml_module) and $YAML::VERSION < "0.6" | |
3 | 0 | 0 | $yaml_module eq "YAML" and $CPAN::META->has_inst($yaml_module) and $YAML::VERSION < "0.6" and not $CPAN::Have_warned->{'YAML'}++ | |
638 | 1 | 0 | 129 | $negative_cache->{'time'} and time < $negative_cache->{'time'} + 60 |
644 | 1 | 0 | 0 | $CPAN::Config->{'use_sqlite'} && ($CPAN::SQLite || &_init_sqlite()) |
718 | 0 | 0 | 0 | -f $lockfile and -M _ > 0 |
724 | 0 | 0 | 0 | defined $otherpid and length $otherpid |
727 | 0 | 0 | 0 | defined $otherhost and length $otherhost |
732 | 0 | 0 | 0 | defined $otherhost and defined $thishost |
0 | 0 | 0 | defined $otherhost and defined $thishost and $otherhost ne "" | |
0 | 0 | 0 | defined $otherhost and defined $thishost and $otherhost ne "" and $thishost ne "" | |
0 | 0 | 0 | defined $otherhost and defined $thishost and $otherhost ne "" and $thishost ne "" and $otherhost ne $thishost | |
0 | 0 | 0 | defined $otherpid and $otherpid | |
958 | 0 | 0 | 0 | 'MM'->maybe_command($perl) && `$perl -MConfig=myconfig -e print -e myconfig` eq 'Config'->myconfig |
976 | 0 | 0 | 0 | defined $path and length $path |
0 | 0 | 0 | defined $path and length $path and -d $path | |
980 | 0 | 0 | 0 | defined $exe and length $exe |
992 | 0 | 0 | 0 | "MM"->maybe_command($perl) and _perl_is_same($perl) |
1057 | 0 | 0 | 0 | defined $CPAN::Meta::Requirements::VERSION and "CPAN::Version"->vlt($CPAN::Meta::Requirements::VERSION, "2.120920") |
1074 | 0 | 0 | 0 | defined $CPAN::Reporter::VERSION and "CPAN::Version"->vlt($CPAN::Reporter::VERSION, "1.2011") |
1107 | 0 | 0 | 0 | $var and $var =~ /^http:/i |
1228 | 45 | 0 | 6 | defined $message and $message eq "no" |
1293 | 0 | 0 | 0 | defined $CPAN::Config->{'gpg'} and $CPAN::Config->{'gpg'} =~ /\S/ |
1349 | 0 | 13 | 0 | $ineval and not $CPAN::End |
1445 | 0 | 0 | 0 | $d->{'build_dir'} and $d->{'build_dir'} eq $dbd |
1475 | 0 | 0 | 0 | defined $env and length $env |
line | l | !l | condition |
---|---|---|---|
266 | 0 | 0 | shift() || '' |
267 | 0 | 0 | $CPAN::CurrentCommandId ||= 1 |
525 | 0 | 3 | $CPAN::Config->{'yaml_module'} || 'YAML' |
554 | 0 | 0 | $opt->{'loadblessed'} || $CPAN::Config->{'yaml_load_code'} || 0 |
563 | 0 | 0 | $CPAN::Config->{'yaml_load_code'} || 0 |
871 | 0 | 0 | $! || 'unknown error' |
935 | 4 | 9 | $CPAN::Config->{'getcwd'} || 'cwd' |
1007 | 31 | 0 | $id ||= "" |
1232 | 3 | 6 | $CPAN::META->{'dontload_hash'}{$mod} ||= 1 |
1320 | 46 | 0 | $id ||= "" |
1334 | 0 | 0 | $self->{'exit_messages'} ||= [] |
1370 | 0 | 0 | $CPAN::Config->{'histsize'} || 100 |
1390 | 0 | 0 | $CPAN::Config->{'histsize'} || 100 |
1437 | 0 | 0 | $self->{'is_tested'}{$b} || 0 |
0 | 0 | $self->{'is_tested'}{$a} || 0 | |
1470 | 0 | 0 | $self->{'is_tested'} ||= {} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
264 | 0 | 0 | 0 | shift() || 'CPAN::Prompt'->new |
272 | 0 | 0 | 0 | not $CPAN::term or $CPAN::term->ReadLine eq "Term::ReadLine::Stub" |
439 | 0 | 0 | 0 | $CPAN::META->has_inst("Term::ReadLine::Gnu") or $CPAN::META->has_inst("Term::ReadLine::Perl") |
455 | 0 | 0 | 0 | not defined $last_term_ornaments or $_ != $last_term_ornaments |
513 | 0 | 0 | 0 | $Config::Config{'d_flock'} or $Config::Config{'d_fcntl_can_lock'} |
632 | 0 | 0 | 0 | $CPAN::SQLite ||= "CPAN::SQLite::META"->new($CPAN::META) |
747 | 0 | 0 | 0 | kill 0, $otherpid or $!{'EPERM'} |
849 | 0 | 0 | 0 | $CPAN::RUN_DEGRADED or $self->{'LOCKFH'} |
1011 | 0 | 0 | 0 | exists $CPAN::META->{'readonly'}{$class}{$id} || $CPAN::SQLite->set($class, $id) |
1016 | 5 | 0 | 26 | $exists ||= exists $CPAN::META->{'readwrite'}{$class}{$id} |
1106 | 0 | 0 | 0 | $CPAN::Config->{'ftp_proxy'} || $ENV{'ftp_proxy'} |
1228 | 6 | 3 | 42 | defined $message and $message eq "no" or $dont{$mod} |
1293 | 0 | 0 | 0 | eval { do { require Crypt::OpenPGP; 1 } } or defined $CPAN::Config->{'gpg'} and $CPAN::Config->{'gpg'} =~ /\S/ |
1323 | 0 | 41 | 0 | $CPAN::META->{'readwrite'}{$class}{$id} ||= $class->new("ID", $id) |
1353 | 0 | 0 | 0 | $CPAN::META->{'cachemgr'} ||= "CPAN::CacheMgr"->new("atexit") |