blib/lib/Pod/Eventual.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 14 | 16 | 87.5 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
21 | 22 | 52 | 4 | $in_pod and $line =~ /^=cut(?:\s*)(.*?)(\n)\z/ |
36 | 1 | 3 | 4 | $current and not $in_pod |
55 | 5 | 7 | 20 | $current and $$current{'type'} eq 'blank' |
56 | 0 | 2 | 23 | $current and $$current{'type'} ne 'blank' |
line | l | !l | condition |
---|---|---|---|
15 | 0 | 4 | $arg ||= {} |
45 | 12 | 5 | $current ||= {'type', 'nonpod', 'start_line', $handle->input_line_number, 'content', ''} |