| blib/lib/PerlIO/via/Limit.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 18 | 88.8 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 17 | 0 | unless defined $new_class |
| 43 | 16 | 20 | if ($$obj{'reached'}) |
| 44 | 2 | 14 | if ($obj->sensitive) |
| 53 | 16 | 4 | if (defined $buf) |
| 63 | 0 | 8 | if $$obj{'reached'} or not defined $buf |
| 70 | 4 | 4 | if ($$obj{'reached'}) |
| 71 | 2 | 2 | if ($obj->sensitive) |
| 82 | 20 | 4 | if (defined(my $len = $obj->length)) |
| 84 | 16 | 4 | if (0 <= $over) |