| line |
true |
false |
branch |
|
157
|
0 |
4 |
$arg->{'in_pod'} ? : |
|
161
|
4 |
74 |
if ($in_pod and $line =~ /^=cut(?:\s*)(.*?)(\n)\z/) |
|
164
|
4 |
0 |
if $current |
|
175
|
8 |
66 |
if ($line =~ /\A=[a-z]/i) |
|
176
|
4 |
4 |
if ($current and not $in_pod) |
|
184
|
17 |
57 |
unless ($in_pod) |
|
195
|
25 |
32 |
if ($line =~ /^\s*$/) { } |
|
|
20 |
17 |
elsif ($current and $current->{'type'} eq 'blank') { } |
|
196
|
23 |
2 |
if ($current and $current->{'type'} ne "blank") |
|
210
|
32 |
25 |
if ($current) |
|
215
|
8 |
17 |
if ($line =~ /^=([a-z]+\S*)(?:\s*)(.*?)(\n)\z/i) |
|
234
|
2 |
2 |
if ($current) |
|
236
|
1 |
0 |
$current->{'type'} eq 'nonpod' ? : |
|
|
1 |
1 |
$current->{'type'} eq 'blank' ? : |
|
239
|
2 |
0 |
if $current |