| 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 |
|
72
|
2 |
6 |
if (index($p{'abs'}, $p{'rel'}) == -1) |
|
88
|
1 |
8 |
if $path ne './' |
|
93
|
1 |
8 |
if $suffix ne 'pm' |
|
117
|
1 |
5 |
unless (eval {
do {
my $inc = _extract_base('abs', $abs_filename, 'rel', $rel_filename);
push @INC, $inc;
1
}
}) |
|
168
|
0 |
1 |
if $#$AoA != $#$header |
|
198
|
0 |
2 |
$has_header ? : |
|
205
|
0 |
2 |
if $has_header |
|
214
|
3 |
21 |
if (not defined $ary->[$cmp_at]) { } |
|
|
12 |
9 |
elsif ($ary->[$cmp_at] eq $all[$i]) { } |
|
228
|
0 |
2 |
if $has_header |