| blib/lib/Data/Section/Seekable/Writer.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 5 | 100.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 45 | 7 | 1 | 1 | defined $extra and $extra =~ /\R/ |
| line | l | !l | condition |
|---|---|---|---|
| 24 | 1 | 3 | $self->{'header'} //= sub { my($self, $name, $content, $extra) = @_; "### $name ###\n"; } |