Branch Coverage

blib/lib/Festival/Client/Async.pm
Criterion Covered Total %
branch 2 58 3.4


line true false branch
16 1 0 unless (defined &DEBUG)
42 0 0 if ($tok eq '(') { }
0 0 elsif ($tok eq ')') { }
49 0 0 unless defined $top
64 1 0 unless my $s = 'IO::Socket::INET'->new('Proto', 'tcp', 'PeerAddr', $host || 'localhost', 'PeerPort', $port || 1314)
98 0 0 unless fcntl $$self{'sock'}, 3, $flags
100 0 0 unless fcntl $$self{'sock'}, 4, $flags & 18446744073709549567
108 0 0 unless fcntl $$self{'sock'}, 3, $flags
110 0 0 unless fcntl $$self{'sock'}, 4, $flags | 2048
129 0 0 if $b == 0
133 0 0 if $$self{'blocked'} and $b < 4096
151 0 0 if ($$self{'intag'}) { }
153 0 0 if ((my $i = index($$self{'inbuf'}, 'ft_StUfF_key')) != $[ - 1) { }
154 0 0 if (substr($$self{'inbuf'}, $i + 12, 1) eq 'X') { }
174 0 0 if ($$foo eq $bar)
189 0 0 if $leftover
192 0 0 if ($$self{'inbuf'} =~ s/^(WV|LP|ER|OK)\n//) { }
196 0 0 if ($1 eq 'OK') { }
0 0 elsif ($1 eq 'ER') { }
219 0 0 unless ($self->write_more)
225 0 0 if exists $$actions{'WV'}
228 0 0 if exists $$actions{'LP'}
230 0 0 if (defined $self->dequeue_error)
234 0 0 if (defined $self->dequeue_ok)
254 0 0 if ($rbuf =~ s/^(WV|LP|ER|OK)\n$//s)
256 0 0 if $tag eq 'OK' or $tag eq 'ER'
259 0 0 if ((my $i = index($rbuf, 'ft_StUfF_key')) != $[ - 1)
260 0 0 if (substr($rbuf, $i + 12, 1) eq 'X') { }
268 0 0 if (defined $tag and exists $$actions{$tag})