| blib/lib/PerlIO/via/LineNumber.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 10 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 29 | 1 | 3 | if @_ > 1 |
| 42 | 2 | 4 | if @_ > 1 |
| 55 | 1 | 3 | if @_ > 1 |
| 87 | 10 | 2 | if (defined(my $line = readline $_[1])) |
| 111 | 0 | 5 | unless print {$_[2];} sprintf($format, $_[0]{'line'}, $_) |