| blib/lib/v6/perlito.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 8 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 7 | 0 | 31 | if $source =~ /^\s*$/ |
| 18 | 0 | 31 | if (not $p or length $source > $p->to) |
| 28 | 0 | 31 | unless @comp_unit |
| 39 | 31 | 31 | if (($status = &filter_read_exact(1000000000)) > 0) |