| blib/lib/PerlIO/via/Timeout.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 18 | 39 | 46.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 34 | 0 | 0 | 34 | defined $fd and $fd >= 0 |
| 81 | 4 | 4 | 1 | $timeout_enabled and $read_timeout |
| 8 | 0 | 1 | $timeout_enabled and $read_timeout and $len | |
| 4 | 0 | 1 | $timeout_enabled and $read_timeout and $len and not _can_read_write($fh, $fd, $read_timeout, 0) | |
| 114 | 0 | 1 | 2 | $len and $timeout_enabled |
| 1 | 2 | 0 | $len and $timeout_enabled and $write_timeout | |
| 3 | 0 | 0 | $len and $timeout_enabled and $write_timeout and not _can_read_write($fh, $fd, $write_timeout, 1) |
| line | l | !l | condition |
|---|---|---|---|
| 57 | 0 | 6 | _get_fd($_[1]) or return |
| 62 | 6 | 0 | _get_fd($_[1]) or return -1 |
| 82 | 0 | 1 | $! ||= 110 |
| 115 | 0 | 0 | $! ||= 110 |
| 164 | 2 | 0 | $_[1] || 0 |
| 171 | 0 | 0 | $_[1] || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 43 | 22 | 0 | 0 | my $fd = _get_fd($_[1]) or croak('failed to get file descriptor for filehandle') |
| 151 | 0 | 0 | 0 | not $timeout or ($pending = $timeout - (time - $initial)) > 0 |