| line |
true |
false |
branch |
|
164
|
2 |
1 |
if defined $$output |
|
172
|
0 |
1 |
if $conf->{'no_perldoc'} |
|
181
|
0 |
1 |
$conf->{'layout'} ? : |
|
200
|
3 |
0 |
if ($_->{'href'} =~ /^\Q$base\E([:\w]+)/) |
|
203
|
0 |
3 |
unless $c->stash('allow_modules') |
|
|
0 |
3 |
unless grep {$module =~ /$_/;} @{[] unless $c->stash('allow_modules');} |
|
211
|
0 |
3 |
if (my $str = $e->content) =~ /^\s*(?:\$|Usage:)\s+/m |
|
212
|
0 |
3 |
unless $str =~ /[\$\@\%]\w|->\w|^use\s+\w/m |
|
215
|
0 |
3 |
defined $class ? : |
|
223
|
4 |
9 |
if $e->tag eq 'h1' or not @topics |
|
247
|
0 |
9 |
unless $c->stash('allow_modules') |
|
|
1 |
8 |
unless grep {$module =~ /$_/;} @{[] unless $c->stash('allow_modules');} |
|
251
|
0 |
8 |
unless $path and -r $path |
|
259
|
2 |
7 |
ref $_[0] eq 'CODE' ? : |
|
|
0 |
9 |
unless defined(my $pod = ref $_[0] eq 'CODE' ? (shift())->() : shift()) |
|
266
|
0 |
9 |
unless eval {
do {
$parser->parse_string_document("$pod");
1
}
} |