| line |
true |
false |
branch |
|
108
|
42 |
194 |
if (/^=(\w.*)/ and $self->{'_sawblank'} and not $self->{'_inblock'}) { } |
|
|
184 |
10 |
elsif ($self->{'_inpod'}) { } |
|
113
|
4 |
38 |
if ($tag eq 'also') |
|
118
|
28 |
14 |
if ($tag eq 'for') { } |
|
|
6 |
8 |
elsif ($tag eq 'begin') { } |
|
|
4 |
4 |
elsif ($tag eq 'cut') { } |
|
128
|
16 |
168 |
if (/^=(?:also )?end (\S+)/ || /^=for (\S+) end\b/ and $self->{'_inblock'} eq $1) { } |
|
136
|
86 |
82 |
if (/^\s*$/) { } |
|
|
18 |
64 |
elsif (not $self->{'_inblock'} || $self->{'_infor'}) { } |
|
137
|
18 |
68 |
if $self->{'_infor'} |
|
146
|
6 |
4 |
if (/^\s*$/) { } |
|
197
|
10 |
18 |
if ($for eq 'example' and defined $pod) |
|
198
|
10 |
0 |
if ($pod eq 'begin') { } |
|
|
0 |
0 |
elsif ($pod eq 'end') { } |
|
224
|
18 |
2 |
if ($self->{'_infor'}) |
|
225
|
4 |
14 |
if ($self->{'_infor'} eq 'example_testing') |
|
229
|
4 |
14 |
if ($self->{'_infor'} eq $self->{'_lasttype'}) { } |
|
274
|
16 |
0 |
if ($self->{'_inblock'}) |
|
275
|
0 |
16 |
if ($self->{'_inblock'} eq 'example_testing') |
|
279
|
2 |
14 |
if ($self->{'_inblock'} eq $self->{'_lasttype'}) { } |
|
321
|
0 |
0 |
unless (open POD, $file) |
|
465
|
0 |
0 |
if ($example->{'testing'}) |