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}) |