| line |
true |
false |
branch |
| 93 |
0 |
66 |
unless @args |
| 98 |
54 |
12 |
if ($can{$o}) { } |
| 102 |
0 |
12 |
if $CPAN::DEBUG |
| 103 |
0 |
12 |
unless (exists $keys{$o}) |
| 106 |
2 |
10 |
if ($o =~ /list$/) { } |
| |
0 |
10 |
elsif ($o =~ /_hash$/) { } |
| 109 |
0 |
2 |
if $CPAN::DEBUG |
| 112 |
0 |
2 |
if ($func eq 'push') { } |
| |
0 |
2 |
elsif ($func eq 'pop') { } |
| |
0 |
2 |
elsif ($func eq 'shift') { } |
| |
0 |
2 |
elsif ($func eq 'unshift') { } |
| |
0 |
2 |
elsif ($func eq 'splice') { } |
| |
0 |
2 |
elsif (@args) { } |
| 133 |
0 |
2 |
if ($changed) |
| 134 |
0 |
0 |
if ($o eq 'urllist') { } |
| |
0 |
0 |
elsif ($o eq 'dontload_list') { } |
| 145 |
0 |
0 |
if @args == 1 and $args[0] eq '' |
| 146 |
0 |
0 |
if @args % 2 |
| 149 |
8 |
2 |
if defined $args[0] |
| 159 |
4 |
57 |
if (ref $v) { } |
| |
57 |
0 |
elsif (defined $v) { } |
| 161 |
4 |
0 |
if (ref $v eq 'ARRAY') { } |
| 165 |
0 |
0 |
defined $$v{$_} ? : |
| 189 |
3 |
0 |
if (@args) |
| 190 |
2 |
1 |
if ($args[0] eq 'args') { } |
| 196 |
2 |
1 |
unless (defined $configpm) |
| 199 |
0 |
2 |
unless $configpm |
| 206 |
3 |
0 |
if (-f $configpm) |
| 208 |
0 |
3 |
if ($mode and not -w _) |
| 214 |
0 |
3 |
unless $configpm =~ /MyConfig/ |
| 224 |
3 |
0 |
if -f $configpm |
| 225 |
0 |
3 |
unless open $fh, ">$configpm" |
| 229 |
0 |
147 |
unless (exists $keys{$_}) |
| 256 |
0 |
147 |
unless defined $v |
| 258 |
141 |
6 |
unless $t |
| 259 |
6 |
0 |
if ($t eq 'ARRAY') |
| 269 |
0 |
0 |
unless $t eq 'HASH' |
| 272 |
0 |
0 |
unless defined $key |
| 282 |
3 |
0 |
if ($INC{$config}) |
| 335 |
0 |
30 |
if ($quote ne ' ' and $command =~ /\s/ and not $command =~ /[$quote]/) |
| 360 |
0 |
0 |
if (-w $configpmtest) { } |
| |
0 |
0 |
elsif (-w $configpmdir) { } |
| 365 |
0 |
0 |
if -f $configpm_bak |
| 366 |
0 |
0 |
if (-f $configpmtest) |
| 367 |
0 |
0 |
if (rename $configpmtest, $configpm_bak) |
| 375 |
0 |
0 |
if ($fh->open(">$configpmtest")) { } |
| 386 |
107 |
0 |
if $INC{'CPAN/MyConfig.pm'} |
| 392 |
0 |
0 |
if ($err_myconfig and not $err_myconfig =~ m[locate CPAN/MyConfig\.pm]) |
| 395 |
0 |
0 |
unless ($INC{'CPAN/MyConfig.pm'}) |
| 398 |
0 |
0 |
if ($err_config and not $err_config =~ m[locate CPAN/Config\.pm]) |
| 406 |
0 |
0 |
if ($CPAN::META->has_usable('File::HomeDir')) { } |
| 416 |
0 |
59 |
if $args{'be_silent'} |
| 421 |
11 |
48 |
unless @miss = $self->missing_config_data |
| 426 |
48 |
0 |
if @miss == 1 and $miss[0] eq 'inhibit_startup_message' |
| 427 |
0 |
48 |
if (defined $INC{'CPAN/Config.pm'} and -w $INC{'CPAN/Config.pm'}) { } |
| |
48 |
0 |
elsif (defined $INC{'CPAN/MyConfig.pm'} and -w $INC{'CPAN/MyConfig.pm'}) { } |
| 438 |
0 |
0 |
if (-d $configpmdir or File::Path::mkpath($configpmdir)) |
| 442 |
0 |
0 |
unless ($configpm) |
| 449 |
0 |
0 |
if ($configpm) { } |
| 459 |
0 |
48 |
if ($redo and not $theycalled) |
| 506 |
0 |
1180 |
unless exists $keys{$_} |
| 507 |
48 |
1132 |
unless defined $$CPAN::Config{$_} |
| 534 |
0 |
0 |
if $CPAN::DEBUG |
| 536 |
0 |
0 |
if (defined $words[2] and $words[2] =~ /list$/ and @words == 3 || @words == 4 && length $word) { } |
| |
0 |
0 |
elsif (defined $words[2] and $words[2] eq 'init' and @words == 3 || @words >= 4 && length $word) { } |
| |
0 |
0 |
elsif (@words >= 4) { } |