| line |
true |
false |
branch |
|
41
|
0 |
1 |
if $v |
|
42
|
0 |
1 |
if $v and @$exclude_list |
|
45
|
0 |
1 |
unless opendir my $dh, $dir |
|
49
|
2 |
7 |
unless -f "$dir/$file" |
|
50
|
1 |
6 |
unless $file =~ /\.pm$/ |
|
63
|
1 |
22 |
unless defined $str |
|
71
|
0 |
8 |
unless defined $p{'abs'} |
|
72
|
0 |
8 |
unless defined $p{'rel'} |
|
75
|
2 |
6 |
if (index($p{'abs'}, $p{'rel'}) == -1) |
|
91
|
1 |
8 |
if $path ne './' |
|
96
|
1 |
8 |
if $suffix ne 'pm' |
|
105
|
0 |
1 |
if $v |
|
116
|
0 |
6 |
if $v and not defined $name |
|
118
|
0 |
6 |
unless defined $name |
|
128
|
1 |
5 |
unless (eval {
do {
my $inc = _extract_base('abs', $abs_filename, 'rel', $rel_filename);
push @INC, $inc;
1
}
}) |
|
140
|
0 |
5 |
unless defined $mod |
|
183
|
0 |
1 |
if $#$AoA != $#$header |
|
213
|
0 |
2 |
$has_header ? : |
|
220
|
0 |
2 |
if $has_header |
|
229
|
3 |
21 |
if (not defined $ary->[$cmp_at]) { } |
|
|
12 |
9 |
elsif ($ary->[$cmp_at] eq $all[$i]) { } |
|
243
|
0 |
2 |
if $has_header |