| lib/Getopt/Compact/PodMunger.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 22 | 95.4 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 22 | 30 | if $command eq 'head1' |
| 78 | 1 | 8 | if $self->_has_section($section) |
| 79 | 1 | 7 | unless defined $content |
| 90 | 72 | 7 | unless $after eq $section or not $known_section{$section} |
| 96 | 1 | 6 | if $is_verbatim |
| 99 | 4 | 3 | if (defined $after) { } |
| 102 | 4 | 13 | if $c =~ /^=head1 $after/ |
| 120 | 28 | 0 | if $$self{'_pod'} |
| 121 | 22 | 6 | if defined $sect |
| 127 | 1 | 13 | unless $$self{'_chunk'} |
| 132 | 11 | 24 | $$self{'_sections'}{$sect} ? : |