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