| 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 |
|
932
|
0 |
0 |
0 |
'MM'->maybe_command($perl) && `$perl -MConfig=myconfig -e print -e myconfig` eq 'Config'->myconfig |
|
950
|
0 |
0 |
0 |
defined $path and length $path |
|
|
0 |
0 |
0 |
defined $path and length $path and -d $path |
|
954
|
0 |
0 |
0 |
defined $exe and length $exe |
|
966
|
0 |
0 |
0 |
'MM'->maybe_command($perl) and _perl_is_same($perl) |
|
1143
|
42 |
0 |
6 |
defined $message and $message eq 'no' |
|
1206
|
0 |
0 |
0 |
defined $$CPAN::Config{'gpg'} and $$CPAN::Config{'gpg'} =~ /\S/ |
|
1262
|
0 |
12 |
0 |
$ineval and not $CPAN::End |
|
1358
|
0 |
0 |
0 |
$$d{'build_dir'} and $$d{'build_dir'} eq $dbd |
|
1388
|
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 |
9 |
$$CPAN::Config{'getcwd'} || 'cwd' |
|
981
|
31 |
0 |
$id ||= '' |
|
1147
|
3 |
6 |
$$CPAN::META{'dontload_hash'}{$mod} ||= 1 |
|
1233
|
43 |
0 |
$id ||= '' |
|
1247
|
0 |
0 |
$$self{'exit_messages'} ||= [] |
|
1283
|
0 |
0 |
$$CPAN::Config{'histsize'} || 100 |
|
1303
|
0 |
0 |
$$CPAN::Config{'histsize'} || 100 |
|
1349
|
0 |
0 |
$$self{'is_tested'}{$b} || 0 |
|
|
0 |
0 |
$$self{'is_tested'}{$a} || 0 |
|
1383
|
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'} |
|
985
|
0 |
0 |
0 |
exists $$CPAN::META{'readonly'}{$class}{$id} || $CPAN::SQLite->set($class, $id) |
|
990
|
5 |
0 |
26 |
$exists ||= exists $$CPAN::META{'readwrite'}{$class}{$id} |
|
1143
|
6 |
3 |
39 |
defined $message and $message eq 'no' or $dont{$mod} |
|
1206
|
0 |
0 |
0 |
eval {
do {
require Crypt::OpenPGP;
1
}
} or defined $$CPAN::Config{'gpg'} and $$CPAN::Config{'gpg'} =~ /\S/ |
|
1236
|
0 |
39 |
0 |
$$CPAN::META{'readwrite'}{$class}{$id} ||= $class->new('ID', $id) |
|
1266
|
0 |
0 |
0 |
$$CPAN::META{'cachemgr'} ||= 'CPAN::CacheMgr'->new('atexit') |