line |
l |
!l |
condition |
157
|
27 |
4 |
$self->{'port'} ||= 6379 |
158
|
27 |
4 |
$self->{'host'} ||= 'localhost' |
162
|
6 |
25 |
$self->{'database'} ||= 0 |
163
|
14 |
17 |
$self->{'reconnect_attempts'} ||= 1 |
164
|
14 |
17 |
$self->{'reconnect_delay_max'} ||= 10 |
165
|
5 |
26 |
$self->{'on_connect_error'} ||= \&RedisDB::_on_connect_error |
281
|
0 |
0 |
$error_obj || 'Server closed connection, reconnecting...' |
629
|
0 |
0 |
$callback ||= \&RedisDB::_ignore |
1437
|
0 |
0 |
$self->{'_subscribed'} ||= {} |
1438
|
0 |
0 |
$self->{'_psubscribed'} ||= {} |
1487
|
0 |
0 |
$callback ||= sub {
1;
}
|
1515
|
0 |
0 |
$callback ||= sub {
1;
}
|
line |
l |
!l&&r |
!l&&!r |
condition |
147
|
1 |
1 |
3 |
$self->{'host'} || $self->{'port'} |
151
|
1 |
1 |
6 |
$self->{'host'} or $self->{'port'} |
|
1 |
1 |
5 |
$self->{'host'} or $self->{'port'} or $self->{'path'} |
232
|
1 |
13 |
0 |
$self->{'path'} || "$self->{'host'}:$self->{'port'}" |
242
|
2 |
9 |
0 |
$error_obj ||= 'RedisDB::Error::DISCONNECTED'->new('Server unexpectedly closed connection. Some data might have been lost.') |
244
|
7 |
0 |
4 |
$self->{'raise_error'} or $self->{'_in_multi'} |
|
0 |
0 |
4 |
$self->{'raise_error'} or $self->{'_in_multi'} or $self->{'_watching'} |
358
|
0 |
0 |
0 |
$1 > 5 || $1 == 5 && $2 >= 5 |
445
|
30 |
0 |
0 |
$! == 11 or $! == 11 |
462
|
0 |
0 |
17 |
$self->{'_parser'}->callbacks or $self->{'_in_multi'} |
|
0 |
0 |
17 |
$self->{'_parser'}->callbacks or $self->{'_in_multi'} or $self->{'_watching'} |
710
|
8 |
36 |
0 |
@{$self->{'_replies'};} or $self->{'_to_be_fetched'} |
|
36 |
0 |
0 |
@{$self->{'_replies'};} or $self->{'_to_be_fetched'} or $self->{'_subscription_loop'} |
715
|
0 |
0 |
2 |
$! == 4 or $! == 0 |
717
|
2 |
0 |
0 |
$! == 11 or $! == 11 |
738
|
0 |
0 |
12 |
$self->{'raise_error'} || $self->{'_in_multi'} || $self->{'_watching'} |
972
|
0 |
0 |
0 |
not $info or ref $info |
991
|
0 |
0 |
0 |
not $list or ref $list |
1458
|
0 |
0 |
0 |
CORE::keys %{$$self{'_subscribed'};} or CORE::keys %{$$self{'_psubscribed'};} |
1484
|
0 |
0 |
0 |
$callback ||= $self->{'_subscription_cb'} |
1512
|
0 |
0 |
0 |
$callback ||= $self->{'_subscription_cb'} |
1538
|
0 |
0 |
0 |
%{$self->{'_subscribed'};} or %{{} unless $self->{'_psubscribed'};} |
1566
|
0 |
0 |
0 |
%{{} unless $self->{'_subscribed'};} or %{$self->{'_psubscribed'};} |