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 |