Branch Coverage

blib/lib/PerlIO/via/Timeout.pm
Criterion Covered Total %
branch 20 40 50.0


line true false branch
32 6 34 unless $_[0]
34 0 34 unless defined $fd and $fd >= 0
45 12 10 if wantarray
63 6 0 unless close $_[1]
81 1 0 if ($timeout_enabled and $read_timeout and $len and not _can_read_write($fh, $fd, $read_timeout, 0))
86 8 0 if (defined $r) { }
0 0 elsif ($! != 4) { }
87 0 8 unless $r
114 0 2 if ($len and $timeout_enabled and $write_timeout and not _can_read_write($fh, $fd, $write_timeout, 1))
119 3 0 if (defined $r) { }
0 0 elsif ($! != 4) { }
122 3 0 unless $len
141 0 1 if ($type) { }
148 0 1 if ($nfound == -1)
149 0 0 unless $! == 4
151 0 0 if not $timeout or ($pending = $timeout - (time - $initial)) > 0
164 2 3 if @_ > 1
171 0 3 if @_ > 1
177 0 2 if grep {$_[0]{$_} < 0;} 'read_timeout', 'write_timeout'
190 1 1 if @_ > 1