| blib/lib/Perldoc/Emitter/HTML.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 12 | 33.3 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 0 | 9 | $tag eq 'a' ? : |
| 0 | 9 | $tag eq 'comment' ? : | |
| 29 | 0 | 9 | if ($tag eq 'comment') { } |
| 0 | 9 | elsif ($tag =~ /a (.*)/) { } | |
| 33 | 0 | 0 | unless defined $prev_text |
| 35 | 0 | 0 | length $1 ? : |