| line |
true |
false |
branch |
|
26
|
1 |
25 |
unless (defined $path) |
|
31
|
8 |
17 |
ref $path eq 'ARRAY' ? : |
|
35
|
1 |
28 |
unless (defined $path_to_check) |
|
39
|
3 |
25 |
unless (-d $path_to_check) |
|
47
|
2 |
23 |
unless @paths_to_use |
|
50
|
1 |
22 |
if ($options->{'testfiles'}) |
|
56
|
1 |
22 |
if (defined $options->{'subdirs'} and $options->{'subdirs'} == 0) |
|
64
|
4 |
19 |
if ($options->{'exclude'}) |
|
65
|
1 |
3 |
ref $options->{'exclude'} eq 'ARRAY' ? : |
|
68
|
7 |
16 |
unless defined $options->{'title'} |
|
73
|
2 |
65 |
if &first(sub {
$file =~ /\A \Q$_\E /msx;
}
, @excludes) |
|
77
|
33 |
32 |
unless $pod |
|
82
|
19 |
13 |
if ($options->{'title'} eq 'pod') { } |
|
|
6 |
7 |
elsif ($options->{'title'} eq 'package') { } |
|
|
1 |
6 |
elsif (length $options->{'title'}) { } |
|
84
|
4 |
15 |
unless defined $title |
|
88
|
4 |
2 |
if $package |