line |
true |
false |
branch |
23
|
0 |
2 |
if ($opt{'parse'} eq '*') |
49
|
6 |
41 |
if length $1 < $indent |
62
|
0 |
10 |
if -d $file |
66
|
8 |
0 |
if (not ref $file and $file ne '-') |
78
|
1 |
0 |
if $? |
93
|
5 |
3 |
if (my($name) = grep({$_->{'header'}->string eq 'NAME';} @$sections)) |
98
|
5 |
0 |
if $title |
99
|
5 |
0 |
if $subtitle |
112
|
0 |
0 |
$file ne '-' && !(-e $file) ? : |
117
|
0 |
0 |
if ($doc) { } |
125
|
0 |
0 |
unless $doc |
127
|
0 |
0 |
if (@input > 1) |
136
|
2 |
4 |
if $file =~ /\.(pm|pod)$/ |
137
|
2 |
2 |
if (-x $file) |
138
|
0 |
2 |
unless open my $fh, '<', $file |
139
|
1 |
1 |
if $fh and (<$fh> // '') =~ /^#!.*perl/ |
153
|
3 |
3 |
unless is_perl_file($file) |
171
|
0 |
1 |
unless -d $dir |
179
|
2 |
1 |
if (($doc->metavalue('title') // $module) eq $module) { } |
181
|
2 |
0 |
$modules->add($module, $doc) ? : |
182
|
1 |
1 |
if ($skipped and not $opt{'quiet'}) |
189
|
1 |
0 |
unless $opt{'quiet'} |
257
|
508 |
554 |
if (ref $element) { } |
258
|
0 |
508 |
unless my $type = $POD_ELEMENT_TYPES{$element->[0]} |
263
|
1675 |
554 |
$n++ ? : |
283
|
6 |
170 |
if (ref $_) { } |
304
|
10 |
105 |
if ($type eq 'url') { } |
|
9 |
96 |
elsif ($type eq 'man') { } |
|
96 |
0 |
elsif ($type eq 'pod') { } |
308
|
9 |
0 |
if ($to =~ /^([^(]+)(?:[(](\d+)[)])?$/) |
318
|
87 |
9 |
if ($to) |
321
|
15 |
81 |
if ($section) |
322
|
9 |
6 |
unless $to |
340
|
6 |
9 |
if ($target eq 'html') { } |
|
6 |
3 |
elsif ($target =~ /^(la)?tex$/) { } |
341
|
3 |
3 |
unless $content =~ /^<.+>$/s |
346
|
0 |
6 |
unless $content =~ /^[\\{]/ |
351
|
6 |
9 |
$target eq 'tex' ? : |
352
|
0 |
15 |
if (grep {$format eq $_;} @{$$self{'parse'};}) |
373
|
13 |
37 |
unless @$item |
374
|
25 |
12 |
if ($deflist) { } |
385
|
37 |
25 |
if ($type =~ /^item-(number|bullet|text)$/) { } |
390
|
25 |
0 |
if (@$item == 1 and $item->[0]->name eq 'Plain') |