| line |
true |
false |
branch |
|
85
|
0 |
1 |
unless ($config)
|
|
88
|
0 |
1 |
unless ($$mod{'description'})
|
|
135
|
0 |
30 |
unless $mod
|
|
143
|
0 |
29 |
unless $rel
|
|
149
|
1 |
0 |
if @_
|
|
150
|
0 |
1 |
unless eval {
do {
return $config //= LoadFile($lconfig)
}
}
|
|
158
|
0 |
2 |
if (ref $mod ne 'HASH')
|
|
171
|
27 |
10 |
if ($$dep{'relationship'} eq 'requires' and $$dep{'module'} ne 'perl')
|
|
173
|
0 |
27 |
if $$rel{'distribution'} eq 'perl'
|
|
183
|
1 |
0 |
if @_
|
|
185
|
1 |
0 |
if (-f $lconfig)
|
|
187
|
0 |
1 |
unless *STDIN->getline =~ /^y$/i
|
|
201
|
0 |
1 |
unless eval {
do {
unless (-f $lconfig) {
die unless open my $fh, '>', $lconfig;
close $fh;
} ;
DumpFile($lconfig, $conf_info)
}
}
|
|
202
|
0 |
1 |
unless (-f $lconfig)
|
|
203
|
0 |
0 |
unless open my $fh, '>', $lconfig
|