| lib/PerlIO/Layers.xs | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 14 | 71.4 |
| line | true | false | branch |
|---|---|---|---|
| 47 | 25 | 12 | while (PerlIOBase(handle)) { |
| 63 | 2 | 1 | for (current = handle; *current; current = PerlIONext(current)) { |
| 65 | 1 | 1 | if (!(PerlIOBase(current)->tab->kind & PERLIO_K_BUFFERED)) |
| 68 | 1 | 0 | if (!buffer->bufsiz && !buffer->buf) |
| 1 | 0 | if (!buffer->bufsiz && !buffer->buf) | |
| 70 | 0 | 1 | mXPUSHu(buffer->bufsiz); |
| 73 | 0 | 1 | if (!counter) |