| line |
true |
false |
branch |
|
83
|
1 |
0 |
if (file_name_is_absolute($^X)) { } |
|
|
0 |
0 |
elsif (my $f = File::Which::which($^X)) { } |
|
|
0 |
0 |
elsif (my $g = rel2abs($^X)) { } |
|
152
|
0 |
0 |
defined $file ? : |
|
155
|
0 |
0 |
if $config->exists($key) |
|
178
|
0 |
0 |
if defined $backpan_dir |
|
179
|
0 |
0 |
if @merge_dirs |
|
185
|
0 |
0 |
unless ($config->get('backpan_dir')) |
|
190
|
0 |
0 |
if ($config->get('merge_dirs')) |
|
199
|
0 |
0 |
if ($config->exists('report_dir')) |
|
216
|
0 |
0 |
if $config->get('prefer_bin') |
|
218
|
0 |
0 |
if $log4perl_file |
|
321
|
0 |
0 |
if ($application->get_option('c')) |
|
399
|
0 |
0 |
unless eval "require $class; 1" |
|
400
|
0 |
0 |
unless $class->can($method) |
|
455
|
0 |
0 |
unless exists $pass_through{$key} |
|
493
|
0 |
0 |
if (-e $ENV{'MYCPAN_LOG4PERL_FILE'}) { } |
|
|
0 |
0 |
elsif (-e $config->get('log4perl_file')) { } |
|
501
|
0 |
0 |
if (defined $log_config) { } |
|
515
|
0 |
0 |
defined $ENV{'MYCPAN_LOGLEVEL'} ? : |
|
544
|
0 |
0 |
unless ref $item eq ref sub {
} |
|
559
|
0 |
0 |
if (not defined $perl) { } |
|
|
0 |
0 |
elsif (-x $perl) { } |
|
656
|
0 |
0 |
if $@ |
|
694
|
0 |
0 |
unless -d $temp_dir |
|
695
|
0 |
0 |
unless -d $temp_dir |
|
700
|
0 |
0 |
unless -d $dir |
|
701
|
0 |
0 |
unless -d $dir |
|
704
|
0 |
0 |
if ($config->retry_errors) |