| line |
true |
false |
branch |
|
42
|
0 |
0 |
unless open my $fh, "<", $file |
|
45
|
0 |
0 |
if ($params{'unlink'}) |
|
46
|
0 |
0 |
unless unlink $file |
|
54
|
0 |
16 |
unless $mod |
|
64
|
0 |
16 |
unless $prefixes |
|
66
|
16 |
0 |
unless ref $prefixes eq "ARRAY" |
|
68
|
0 |
16 |
unless @$prefixes |
|
69
|
0 |
16 |
if $options{'no_require'} and @$prefixes > 1 |
|
71
|
0 |
16 |
if ($input =~ /^\+(.*)$/) |
|
73
|
0 |
0 |
if $options{'no_require'} |
|
74
|
0 |
0 |
if eval {
do {
require (mod2file($mod));
1
}
} |
|
80
|
0 |
16 |
$input =~ /^\Q$pre\E/ ? : |
|
82
|
0 |
16 |
if ($options{'no_require'}) { } |
|
86
|
16 |
0 |
if eval {
do {
require (mod2file($mod));
1
}
} |