blib/lib/CPAN.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 23 | 165 | 13.9 |
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'}++ | |
629 | 1 | 0 | 129 | $negative_cache->{'time'} and time < $negative_cache->{'time'} + 60 |
635 | 1 | 0 | 0 | $CPAN::Config->{'use_sqlite'} && ($CPAN::SQLite || &_init_sqlite()) |
709 | 0 | 0 | 0 | -f $lockfile and -M _ > 0 |
715 | 0 | 0 | 0 | defined $otherpid and length $otherpid |
718 | 0 | 0 | 0 | defined $otherhost and length $otherhost |
723 | 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 | |
949 | 0 | 0 | 0 | 'MM'->maybe_command($perl) && `$perl -MConfig=myconfig -e print -e myconfig` eq 'Config'->myconfig |
967 | 0 | 0 | 0 | defined $path and length $path |
0 | 0 | 0 | defined $path and length $path and -d $path | |
971 | 0 | 0 | 0 | defined $exe and length $exe |
983 | 0 | 0 | 0 | 'MM'->maybe_command($perl) and _perl_is_same($perl) |
1045 | 0 | 0 | 0 | defined $CPAN::Meta::Requirements::VERSION and 'CPAN::Version'->vlt($CPAN::Meta::Requirements::VERSION, '2.120920') |
1078 | 0 | 0 | 0 | $var and $var =~ /^http:/i |
1177 | 44 | 0 | 6 | defined $message and $message eq 'no' |
1242 | 0 | 0 | 0 | defined $CPAN::Config->{'gpg'} and $CPAN::Config->{'gpg'} =~ /\S/ |
1298 | 0 | 12 | 0 | $ineval and not $CPAN::End |
1394 | 0 | 0 | 0 | $d->{'build_dir'} and $d->{'build_dir'} eq $dbd |
1424 | 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 |
862 | 0 | 0 | $! || 'unknown error' |
926 | 3 | 9 | $CPAN::Config->{'getcwd'} || 'cwd' |
998 | 31 | 0 | $id ||= '' |
1181 | 3 | 6 | $CPAN::META->{'dontload_hash'}{$mod} ||= 1 |
1269 | 46 | 0 | $id ||= '' |
1283 | 0 | 0 | $self->{'exit_messages'} ||= [] |
1319 | 0 | 0 | $CPAN::Config->{'histsize'} || 100 |
1339 | 0 | 0 | $CPAN::Config->{'histsize'} || 100 |
1386 | 0 | 0 | $self->{'is_tested'}{$b} || 0 |
0 | 0 | $self->{'is_tested'}{$a} || 0 | |
1419 | 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'} |
623 | 0 | 0 | 0 | $CPAN::SQLite ||= 'CPAN::SQLite::META'->new($CPAN::META) |
738 | 0 | 0 | 0 | kill 0, $otherpid or $!{'EPERM'} |
840 | 0 | 0 | 0 | $CPAN::RUN_DEGRADED or $self->{'LOCKFH'} |
1002 | 0 | 0 | 0 | exists $CPAN::META->{'readonly'}{$class}{$id} || $CPAN::SQLite->set($class, $id) |
1007 | 5 | 0 | 26 | $exists ||= exists $CPAN::META->{'readwrite'}{$class}{$id} |
1077 | 0 | 0 | 0 | $CPAN::Config->{'ftp_proxy'} || $ENV{'ftp_proxy'} |
1177 | 6 | 3 | 41 | defined $message and $message eq 'no' or $dont{$mod} |
1242 | 0 | 0 | 0 | eval { do { require Crypt::OpenPGP; 1 } } or defined $CPAN::Config->{'gpg'} and $CPAN::Config->{'gpg'} =~ /\S/ |
1272 | 0 | 41 | 0 | $CPAN::META->{'readwrite'}{$class}{$id} ||= $class->new('ID', $id) |
1302 | 0 | 0 | 0 | $CPAN::META->{'cachemgr'} ||= 'CPAN::CacheMgr'->new('atexit') |