| 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 $otherpid |
|
715
|
0 |
0 |
0 |
defined $otherhost and $otherhost |
|
719
|
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 |
|
929
|
0 |
0 |
0 |
'MM'->maybe_command($perl) && `$perl -MConfig=myconfig -e print -e myconfig` eq 'Config'->myconfig |
|
947
|
0 |
0 |
0 |
defined $path and length $path |
|
|
0 |
0 |
0 |
defined $path and length $path and -d $path |
|
951
|
0 |
0 |
0 |
defined $exe and length $exe |
|
963
|
0 |
0 |
0 |
'MM'->maybe_command($perl) and _perl_is_same($perl) |
|
1114
|
34 |
0 |
6 |
defined $message and $message eq 'no' |
|
1177
|
0 |
0 |
0 |
defined $$CPAN::Config{'gpg'} and $$CPAN::Config{'gpg'} =~ /\S/ |
|
1233
|
0 |
7 |
0 |
$ineval and not $CPAN::End |
|
1329
|
0 |
0 |
0 |
$$d{'build_dir'} and $$d{'build_dir'} eq $dbd |
|
1359
|
0 |
0 |
0 |
defined $env and length $env |
| line |
l |
!l |
condition |
|
263
|
0 |
0 |
shift() || '' |
|
264
|
0 |
0 |
$CPAN::CurrentCommandId ||= 1 |
|
520
|
0 |
3 |
$$CPAN::Config{'yaml_module'} || 'YAML' |
|
556
|
0 |
0 |
$$CPAN::Config{'yaml_load_code'} || 0 |
|
909
|
3 |
4 |
$$CPAN::Config{'getcwd'} || 'cwd' |
|
978
|
31 |
0 |
$id ||= '' |
|
1118
|
3 |
6 |
$$CPAN::META{'dontload_hash'}{$mod} ||= 1 |
|
1204
|
43 |
0 |
$id ||= '' |
|
1218
|
0 |
0 |
$$self{'exit_messages'} ||= [] |
|
1254
|
0 |
0 |
$$CPAN::Config{'histsize'} || 100 |
|
1274
|
0 |
0 |
$$CPAN::Config{'histsize'} || 100 |
|
1320
|
0 |
0 |
$$self{'is_tested'}{$b} || 0 |
|
|
0 |
0 |
$$self{'is_tested'}{$a} || 0 |
|
1354
|
0 |
0 |
$$self{'is_tested'} ||= {} |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
261
|
0 |
0 |
0 |
shift() || 'CPAN::Prompt'->new |
|
269
|
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) |
|
734
|
0 |
0 |
0 |
kill 0, $otherpid or $!{'EPERM'} |
|
824
|
0 |
0 |
0 |
$CPAN::RUN_DEGRADED or $$self{'LOCKFH'} |
|
982
|
0 |
0 |
0 |
exists $$CPAN::META{'readonly'}{$class}{$id} || $CPAN::SQLite->set($class, $id) |
|
987
|
5 |
0 |
26 |
$exists ||= exists $$CPAN::META{'readwrite'}{$class}{$id} |
|
1114
|
6 |
3 |
31 |
defined $message and $message eq 'no' or $dont{$mod} |
|
1177
|
0 |
0 |
0 |
eval {
do {
require Crypt::OpenPGP;
1
}
} or defined $$CPAN::Config{'gpg'} and $$CPAN::Config{'gpg'} =~ /\S/ |
|
1207
|
0 |
39 |
0 |
$$CPAN::META{'readwrite'}{$class}{$id} ||= $class->new('ID', $id) |
|
1237
|
0 |
0 |
0 |
$$CPAN::META{'cachemgr'} ||= 'CPAN::CacheMgr'->new('atexit') |