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) |