blib/lib/CPAN.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 22 | 154 | 14.2 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
383 | 0 | 0 | 0 | ref $err and $err->isa('CPAN::Exception::blocked_urllist') |
416 | 0 | 0 | 0 | ref $err and $reported_error eq ref $err |
447 | 0 | 0 | 0 | $CPAN::term and $CPAN::term->can('ornaments') |
472 | 0 | 0 | 0 | $CPAN::term and $CPAN::term->can('GetHistory') |
521 | 3 | 0 | 0 | $yaml_module ne 'YAML' and not $CPAN::META->has_inst($yaml_module) |
529 | 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'}++ | |
626 | 1 | 0 | 126 | $negative_cache->{'time'} and time < $negative_cache->{'time'} + 60 |
632 | 1 | 0 | 0 | $CPAN::Config->{'use_sqlite'} && ($CPAN::SQLite || &_init_sqlite()) |
706 | 0 | 0 | 0 | -f $lockfile and -M _ > 0 |
712 | 0 | 0 | 0 | defined $otherpid and length $otherpid |
715 | 0 | 0 | 0 | defined $otherhost and length $otherhost |
720 | 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 | |
945 | 0 | 0 | 0 | 'MM'->maybe_command($perl) && `$perl -MConfig=myconfig -e print -e myconfig` eq 'Config'->myconfig |
963 | 0 | 0 | 0 | defined $path and length $path |
0 | 0 | 0 | defined $path and length $path and -d $path | |
967 | 0 | 0 | 0 | defined $exe and length $exe |
979 | 0 | 0 | 0 | 'MM'->maybe_command($perl) and _perl_is_same($perl) |
1156 | 42 | 0 | 6 | defined $message and $message eq 'no' |
1219 | 0 | 0 | 0 | defined $CPAN::Config->{'gpg'} and $CPAN::Config->{'gpg'} =~ /\S/ |
1275 | 0 | 12 | 0 | $ineval and not $CPAN::End |
1371 | 0 | 0 | 0 | $d->{'build_dir'} and $d->{'build_dir'} eq $dbd |
1401 | 0 | 0 | 0 | defined $env and length $env |
line | l | !l | condition |
---|---|---|---|
264 | 0 | 0 | shift() || '' |
265 | 0 | 0 | $CPAN::CurrentCommandId ||= 1 |
520 | 0 | 3 | $CPAN::Config->{'yaml_module'} || 'YAML' |
556 | 0 | 0 | $CPAN::Config->{'yaml_load_code'} || 0 |
922 | 3 | 9 | $CPAN::Config->{'getcwd'} || 'cwd' |
994 | 31 | 0 | $id ||= '' |
1160 | 3 | 6 | $CPAN::META->{'dontload_hash'}{$mod} ||= 1 |
1246 | 43 | 0 | $id ||= '' |
1260 | 0 | 0 | $self->{'exit_messages'} ||= [] |
1296 | 0 | 0 | $CPAN::Config->{'histsize'} || 100 |
1316 | 0 | 0 | $CPAN::Config->{'histsize'} || 100 |
1363 | 0 | 0 | $self->{'is_tested'}{$b} || 0 |
0 | 0 | $self->{'is_tested'}{$a} || 0 | |
1396 | 0 | 0 | $self->{'is_tested'} ||= {} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
262 | 0 | 0 | 0 | shift() || 'CPAN::Prompt'->new |
270 | 0 | 0 | 0 | not $CPAN::term or $CPAN::term->ReadLine eq 'Term::ReadLine::Stub' |
434 | 0 | 0 | 0 | $CPAN::META->has_inst('Term::ReadLine::Gnu') or $CPAN::META->has_inst('Term::ReadLine::Perl') |
450 | 0 | 0 | 0 | not defined $last_term_ornaments or $_ != $last_term_ornaments |
508 | 0 | 0 | 0 | $Config::Config{'d_flock'} or $Config::Config{'d_fcntl_can_lock'} |
620 | 0 | 0 | 0 | $CPAN::SQLite ||= 'CPAN::SQLite::META'->new($CPAN::META) |
735 | 0 | 0 | 0 | kill 0, $otherpid or $!{'EPERM'} |
837 | 0 | 0 | 0 | $CPAN::RUN_DEGRADED or $self->{'LOCKFH'} |
998 | 0 | 0 | 0 | exists $CPAN::META->{'readonly'}{$class}{$id} || $CPAN::SQLite->set($class, $id) |
1003 | 5 | 0 | 26 | $exists ||= exists $CPAN::META->{'readwrite'}{$class}{$id} |
1156 | 6 | 0 | 42 | defined $message and $message eq 'no' or $dont{$mod} |
1219 | 0 | 0 | 0 | eval { do { require Crypt::OpenPGP; 1 } } or defined $CPAN::Config->{'gpg'} and $CPAN::Config->{'gpg'} =~ /\S/ |
1249 | 0 | 39 | 0 | $CPAN::META->{'readwrite'}{$class}{$id} ||= $class->new('ID', $id) |
1279 | 0 | 0 | 0 | $CPAN::META->{'cachemgr'} ||= 'CPAN::CacheMgr'->new('atexit') |