| line |
true |
false |
branch |
|
30
|
0 |
0 |
if (-e $$self{'ppmdf'}) |
|
31
|
0 |
0 |
if (open my $f, $$self{'ppmdf'}) |
|
35
|
0 |
0 |
if $@ |
|
55
|
0 |
0 |
if (defined $config and -r $config) |
|
59
|
0 |
0 |
if $@ |
|
63
|
0 |
0 |
unless defined $confid |
|
74
|
0 |
0 |
unless defined $host |
|
82
|
0 |
0 |
if $ENV{'HOME'} |
|
83
|
0 |
0 |
if not $perl5lib and $ENV{'USERPROFILE'} |
|
86
|
0 |
0 |
unless defined $prefix |
|
90
|
0 |
0 |
unless -d $prefix |
|
94
|
0 |
0 |
unless defined $ppmdf |
|
103
|
0 |
0 |
unless defined $command |
|
113
|
0 |
0 |
if ($filename =~ m(^[\w/\\]+\.pm$)) |
|
129
|
0 |
0 |
if $entry and reftype $entry eq 'HASH' |
|
132
|
0 |
0 |
unless %files |
|
143
|
0 |
0 |
if $f and reftype $f eq 'ARRAY' |
|
151
|
0 |
0 |
if $conf and $conf->can('prefiles') |
|
154
|
0 |
0 |
unless -d $path |
|
161
|
0 |
0 |
if $conf and $conf->can('postfiles') |
|
169
|
0 |
0 |
if $f and reftype $f eq 'ARRAY' |
|
177
|
0 |
0 |
if $conf and $conf->can($pre) |
|
180
|
0 |
0 |
unless -d $path |
|
185
|
0 |
0 |
if $conf and $conf->can($post) |