| line |
true |
false |
branch |
|
66
|
0 |
0 |
if (*{$contents;}{$type}) |
|
|
30 |
58 |
if (*{$contents;}{$type}) |
|
67
|
0 |
0 |
if $type eq 'SCALAR' and not defined ${*{$contents;}{$type};} |
|
|
12 |
18 |
if $type eq 'SCALAR' and not defined ${*{$contents;}{$type};} |
|
101
|
0 |
0 |
unless ($required{$pkg}) |
|
|
0 |
8 |
unless ($required{$pkg}) |
|
130
|
0 |
0 |
unless (defined $file_name and length $file_name) |
|
|
0 |
1 |
unless (defined $file_name and length $file_name) |
|
136
|
0 |
0 |
if ((my $path = $file_name) =~ s[([\\/])[^\\/]+$][$1]) |
|
|
1 |
0 |
if ((my $path = $file_name) =~ s[([\\/])[^\\/]+$][$1]) |
|
140
|
0 |
0 |
if -e $file_name and not $overwrite |
|
|
0 |
1 |
if -e $file_name and not $overwrite |
|
144
|
0 |
0 |
unless open my $fh, '>', $file_name |
|
|
0 |
1 |
unless open my $fh, '>', $file_name |