| blib/lib/PerlIO/via/CBC.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 26 | 53.8 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 1 | 0 | if (%args) { } |
| 24 | 0 | 2 | if $_[1] ne 'r' and $_[1] ne 'w' |
| 27 | 0 | 2 | unless ($cbc) |
| 32 | 1 | 1 | if ($_[1] eq 'r') { } |
| 50 | 1 | 2 | if (defined $line) { } |
| 1 | 1 | elsif ($cbc) { } | |
| 78 | 0 | 0 | unless defined $ret |
| 83 | 0 | 0 | if ($ret) { } |
| 99 | 0 | 0 | if ($ret > $len and $$self[0]) |
| 114 | 1 | 0 | print({$fh;} $buf) ? : |
| 120 | 1 | 1 | if $$self[2] eq 'r' |
| 123 | 1 | 0 | if ($buf) |
| 124 | 1 | 0 | print({$fh;} $buf) ? : |