| line |
true |
false |
branch |
|
24
|
0 |
0 |
if (my $encoding = $args{'encoding'}) |
|
26
|
0 |
0 |
unless ref $args{'encoding'} |
|
41
|
0 |
0 |
unless $$self{'cmd_cb'} |
|
55
|
0 |
0 |
if @_ |
|
63
|
0 |
0 |
if $$self{'on_error'} |
|
64
|
0 |
0 |
if $$self{'on_cleanup'} |
|
65
|
0 |
0 |
unless $$self{'multi_cvs'} |
|
69
|
0 |
0 |
if $@ |
|
78
|
0 |
0 |
if (@_) |
|
79
|
0 |
0 |
if UNIVERSAL::isa($_[-1], 'AnyEvent::CondVar') |
|
84
|
0 |
0 |
if $$self{'sock'} |
|
89
|
0 |
0 |
unless (my $fh = shift()) |
|
93
|
0 |
0 |
if $@ |
|
102
|
0 |
0 |
if $_[1] |
|
117
|
0 |
0 |
if ($$self{'sub'} and %{$$self{'sub'};}) |
|
118
|
0 |
0 |
unless $is_pubsub |
|
122
|
0 |
0 |
if ($$self{'multi_write'}) { } |
|
123
|
0 |
0 |
if $is_pubsub or $command eq 'multi' |
|
126
|
0 |
0 |
if $command eq 'exec' |
|
131
|
0 |
0 |
if (@_) |
|
132
|
0 |
0 |
if ref $_[-1] and UNIVERSAL::isa($_[-1], 'AnyEvent::CondVar') |
|
133
|
0 |
0 |
if ref $_[-1] eq 'CODE' |
|
136
|
0 |
0 |
if $is_subscribe and not $cb |
|
140
|
0 |
0 |
$$self{'encoding'} && length $_ ? : |
|
157
|
0 |
0 |
if ($is_pubsub) |
|
163
|
0 |
0 |
if ($is_subscribe) |
|
167
|
0 |
0 |
if (not $already and @_) |
|
172
|
0 |
0 |
if (ref $res) |
|
176
|
0 |
0 |
if ($action eq 'message') { } |
|
|
0 |
0 |
elsif ($action eq 'pmessage') { } |
|
|
0 |
0 |
elsif ($action eq 'subscribe' or $action eq 'psubscribe') { } |
|
|
0 |
0 |
elsif ($action eq 'unsubscribe' or $action eq 'punsubscribe') { } |
|
188
|
0 |
0 |
if $@ |
|
198
|
0 |
0 |
if ($$self{'sub_count'} or %{$$self{'sub'};}) |
|
220
|
0 |
0 |
if ($@) |
|
223
|
0 |
0 |
if $cb |
|
230
|
0 |
0 |
if ($command eq 'exec') { } |
|
|
0 |
0 |
elsif ($$self{'multi_write'}) { } |
|
240
|
0 |
0 |
if ($err or ref $res ne 'ARRAY') { } |
|
243
|
0 |
0 |
if $@ |
|
249
|
0 |
0 |
ref $r && UNIVERSAL::isa($r, 'AnyEvent::Redis::Error') ? : |
|
253
|
0 |
0 |
if $@ |
|
256
|
0 |
0 |
if $@ |
|
273
|
0 |
0 |
if (not $err and $res eq 'QUEUED') { } |
|
278
|
0 |
0 |
if $@ |
|
292
|
0 |
0 |
if ($command eq 'info') { } |
|
|
0 |
0 |
elsif ($command eq 'keys' and not ref $res) { } |
|
299
|
0 |
0 |
$err ? : |
|
300
|
0 |
0 |
if $@ |
|
306
|
0 |
0 |
if $command eq 'multi' |
|
326
|
0 |
0 |
unless $$self{'pending_cvs'} |
|
327
|
0 |
0 |
unless $p and $p == $cv |