Branch Coverage

blib/lib/Net/PSYC/Event/IO_Select.pm
Criterion Covered Total %
branch 41 68 60.2


line true false branch
16 0 3 if (eval { do { Time::HiRes::time() } }) { }
53 0 33 unless ($cb and ref $cb eq 'CODE')
61 11 22 if ($_ eq 'r' or $_ eq 'w' or $_ eq 'e') { }
22 0 elsif ($_ eq 't') { }
62 4 7 unless $S{$_}
72 20 2 $repeat ? :
75 5 6 !defined($repeat) || $repeat ? :
85 26 3 if (@_) { }
91 20 15 if (exists $cb{$_}{$name} and $cb{$_}{$name}[0] == 0)
105 17 0 unless (ref $id)
108 17 0 if (scalar($T[$i][1]) . $T[0][3] eq $id)
118 0 0 if (exists $cb{$_}{$name})
119 0 0 if (not $_[1] or $_[1] =~ /$_/)
135 21 23 if (scalar @T and not scalar @queue) { }
15 8 elsif (scalar @queue) { }
137 0 21 if ($time < 0)
157 41 3 defined $rmask && $rmask =~ /[^\0]/ ? :
24 20 defined $wmask && $wmask =~ /[^\0]/ ? :
0 44 defined $emask && $emask =~ /[^\0]/ ? :
168 1 3 if ($$event[1]() and $$event[2])
171 0 4 unless $time
176 0 9 unless exists $cb{'r'}{$name}
179 9 0 if ($$event[0] != 0)
180 0 9 if ($$event[0] > 0)
185 6 3 if ($$event[1]($sock) == -1)
193 0 26 unless exists $cb{'w'}{$name}
196 26 0 if ($$event[0] != 0)
197 26 0 if ($$event[0] > 0)
202 0 26 if ($$event[1]($sock) == -1)
210 0 0 unless exists $cb{'e'}{$name}
213 0 0 if ($$event[0] != 0)
214 0 0 if ($$event[0] > 0)
219 0 0 if ($$event[1]($sock) == -1)
227 16 5 if ($$event[0]($$event[1], $$event[2]++) == -1)