| line |
true |
false |
branch |
|
32
|
0 |
0 |
if ++$_[0]{'json'}{$_[1]} |
|
42
|
1 |
1 |
ref $_[-1] eq 'CODE' ? : |
|
49
|
1 |
0 |
unless (@{$self->{'chans'}{$name} ||= [];}) |
|
50
|
0 |
1 |
if $self->{'reconnect_tid'} |
|
51
|
0 |
1 |
$name =~ /\*/u ? : |
|
60
|
0 |
0 |
if $self->{'json'}{$name} |
|
72
|
1 |
1 |
$cb ? : |
|
73
|
2 |
0 |
unless (@$chans) |
|
75
|
0 |
0 |
$name =~ /\*/u ? : |
|
|
0 |
2 |
if $conn->is_connected |
|
85
|
6 |
4 |
ref $_[-1] eq 'HASH' ? : |
|
93
|
6 |
4 |
$args->{'type'} eq 'keyevent' ? : |
|
101
|
0 |
0 |
if $delay < 0 or $self->{'reconnect_tid'} |
|
106
|
0 |
0 |
if $self |
|
114
|
0 |
0 |
if delete $self->{'reconnect'} |
|
119
|
0 |
0 |
unless ref $res eq "ARRAY" |
|
120
|
0 |
0 |
unless $res->[0] =~ /^p?message$/iu |
|
122
|
0 |
0 |
$res->[0] eq 'pmessage' ? : |
|
126
|
0 |
0 |
if $self->{'json'}{$name} |
|
127
|
0 |
0 |
unless $self->{'chans'}{$name} |
|
128
|
0 |
0 |
$keyspace_listen ? : |
|
135
|
0 |
0 |
/\*/u ? : |
|
141
|
1 |
0 |
unless $self->{'before_connect'}++ |