| line |
true |
false |
branch |
|
68
|
0 |
80 |
unless open my $fh, $file |
|
70
|
0 |
80 |
unless close $fh |
|
87
|
0 |
10 |
unless open my $fh, $file |
|
89
|
0 |
10 |
unless close $fh |
|
159
|
0 |
4 |
unless open MAK, $mkfl |
|
176
|
0 |
0 |
if (defined $pred{'pod_present'}) |
|
179
|
0 |
0 |
if (defined $pred{'constructor_present'}) |
|
199
|
0 |
0 |
if (do {
$predictref
}->{'pod_present'} == 0) { } |
|
210
|
0 |
0 |
if (do {
$predictref
}->{'constructor_present'} == 0) { } |
|
250
|
0 |
85 |
if (-f $pers{'full'}) { } |
|
255
|
0 |
0 |
unless rename $pers{'full'}, $pers{'hidden'} |
|
270
|
0 |
85 |
if (-f $pers_def_ref->{'hidden'}) { } |
|
273
|
0 |
0 |
unless rename $pers_def_ref->{'hidden'}, $pers_def_ref->{'full'} |
|
307
|
1 |
0 |
unless (-d $eumm_dir) |
|
308
|
0 |
1 |
unless mkpath($eumm_dir) |
|
326
|
1 |
0 |
if (not $els1{'pm'}) { } |
|
|
0 |
0 |
elsif ($els1{'pm'}) { } |
|
365
|
1 |
0 |
if (not $els1{'pm'}) { } |
|
|
0 |
0 |
elsif ($els1{'pm'}) { } |
|
388
|
0 |
3 |
unless opendir my $dirh, $eumm_dir |
|
391
|
0 |
6 |
if ($f =~ /\.pm$/) { } |
|
|
0 |
6 |
elsif ($f =~ /\.pm\.hidden$/) { } |
|
399
|
0 |
3 |
unless closedir $dirh |
|
403
|
0 |
0 |
if (scalar @pm_files and scalar @pm_files_hidden) |
|
429
|
0 |
0 |
unless rename $f, $new |
|
441
|
0 |
0 |
unless rename $f, $new |