| 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') |