| line |
true |
false |
branch |
|
113
|
42 |
198 |
if (/^=(\w.*)/ and $self->{'_sawblank'} and not $self->{'_inblock'}) { } |
|
|
184 |
14 |
elsif ($self->{'_inpod'}) { } |
|
118
|
4 |
38 |
if ($tag eq 'also') |
|
123
|
28 |
14 |
if ($tag eq 'for') { } |
|
|
6 |
8 |
elsif ($tag eq 'begin') { } |
|
|
4 |
4 |
elsif ($tag eq 'cut') { } |
|
136
|
16 |
168 |
if (/^=(?:also )?end (\S+)/ || /^=for (\S+) end\b/ and $self->{'_inblock'} eq $1) { } |
|
144
|
86 |
82 |
if (/^\s*$/) { } |
|
|
18 |
64 |
elsif (not $self->{'_inblock'} || $self->{'_infor'}) { } |
|
145
|
18 |
68 |
if $self->{'_infor'} |
|
156
|
8 |
6 |
if (/^\s*$/) { } |
|
208
|
10 |
18 |
if ($for eq 'example' and defined $pod) |
|
209
|
10 |
0 |
if ($pod eq 'begin') { } |
|
|
0 |
0 |
elsif ($pod eq 'end') { } |
|
237
|
18 |
2 |
if ($self->{'_infor'}) |
|
239
|
4 |
14 |
if $self->{'_infor'} eq 'example_testing' |
|
241
|
4 |
14 |
if ($self->{'_infor'} eq $self->{'_lasttype'}) { } |
|
287
|
16 |
0 |
if ($self->{'_inblock'}) |
|
289
|
0 |
16 |
if $self->{'_inblock'} eq 'example_testing' |
|
291
|
2 |
14 |
if ($self->{'_inblock'} eq $self->{'_lasttype'}) { } |
|
334
|
0 |
0 |
unless (open POD, $file) |
|
478
|
0 |
0 |
if ($example->{'testing'}) |