line |
true |
false |
branch |
55
|
0 |
0 |
unless @perlret |
58
|
0 |
0 |
unless length $perlret[0] and length $perlret[0] >= $i |
62
|
0 |
0 |
if (@tries == @perlret) { } |
77
|
0 |
0 |
if $CPAN::DEBUG |
79
|
0 |
0 |
if ($line =~ s/^((?:notest|f?force)\s*)//) |
83
|
0 |
0 |
if ($pos == 0 or $line =~ /^(?:h(?:elp)?|\?)\s/) { } |
|
0 |
0 |
elsif (not $line =~ /^[\!abcdghimorutl]/) { } |
|
0 |
0 |
elsif ($line =~ /^a\s/) { } |
|
0 |
0 |
elsif ($line =~ /^ls\s/) { } |
|
0 |
0 |
elsif ($line =~ /^b\s/) { } |
|
0 |
0 |
elsif ($line =~ /^d\s/) { } |
|
0 |
0 |
elsif ($line =~ /^(
[mru]|make|clean|dump|get|test|install|readme|look|cvs_import|perldoc|recent
)\s/x) { } |
|
0 |
0 |
elsif ($line =~ /^i\s/) { } |
|
0 |
0 |
elsif ($line =~ /^reload\s/) { } |
|
0 |
0 |
elsif ($line =~ /^o\s/) { } |
|
0 |
0 |
elsif ($line =~ /^\S+\s/) { } |
91
|
0 |
0 |
$rest ? : |
103
|
0 |
0 |
if ($word =~ /^Bundle::/) |
125
|
0 |
0 |
if (CPAN::_sqlite_running()) |
129
|
0 |
0 |
if $class eq "CPAN::Distribution" |
149
|
0 |
0 |
if $CPAN::DEBUG |
151
|
0 |
0 |
if @words == 1 |
152
|
0 |
0 |
if @words == 2 and $word |
160
|
0 |
0 |
if $CPAN::DEBUG |
162
|
0 |
0 |
if @words == 1 |
163
|
0 |
0 |
if @words == 2 and length $word |
164
|
0 |
0 |
if (do {
$words[1] eq 'index'
}) { } |
|
0 |
0 |
elsif ($words[1] eq 'conf') { } |
|
0 |
0 |
elsif ($words[1] eq 'debug') { } |