| line |
true |
false |
branch |
|
17
|
0 |
4 |
$$arg{'in_pod'} ? :
|
|
21
|
4 |
74 |
if ($in_pod and $line =~ /^=cut(?:\s*)(.*?)(\n)\z/)
|
|
24
|
4 |
0 |
if $current
|
|
35
|
8 |
66 |
if ($line =~ /\A=[a-z]/i)
|
|
36
|
4 |
4 |
if ($current and not $in_pod)
|
|
44
|
17 |
57 |
unless ($in_pod)
|
|
55
|
25 |
32 |
if ($line =~ /^\s*$/) { }
|
|
|
20 |
17 |
elsif ($current and $$current{'type'} eq 'blank') { }
|
|
56
|
23 |
2 |
if ($current and $$current{'type'} ne 'blank')
|
|
70
|
32 |
25 |
if ($current)
|
|
75
|
8 |
17 |
if ($line =~ /^=([a-z]+\S*)(?:\s*)(.*?)(\n)\z/i)
|
|
94
|
2 |
2 |
if ($current)
|
|
95
|
1 |
0 |
$$current{'type'} eq 'nonpod' ? :
|
|
|
1 |
1 |
$$current{'type'} eq 'blank' ? :
|
|
99
|
2 |
0 |
if $current
|