| blib/lib/PerlIO/via/Timeout.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 18 | 39 | 46.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 31 | 0 | 0 | 34 | defined $fd and $fd >= 0 |
| 78 | 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) | |
| 111 | 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 |
|---|---|---|---|
| 54 | 0 | 6 | _get_fd($_[1]) or return |
| 59 | 6 | 0 | _get_fd($_[1]) or return -1 |
| 79 | 0 | 1 | $! ||= 110 |
| 112 | 0 | 0 | $! ||= 110 |
| 161 | 2 | 0 | $_[1] || 0 |
| 168 | 0 | 0 | $_[1] || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 40 | 22 | 0 | 0 | my $fd = _get_fd($_[1]) or croak('failed to get file descriptor for filehandle') |
| 148 | 0 | 0 | 0 | not $timeout or ($pending = $timeout - (&Time::HiRes::time() - $initial)) > 0 |