line |
l |
!l |
condition |
158
|
27 |
4 |
$self->{'port'} ||= 6379 |
159
|
27 |
4 |
$self->{'host'} ||= 'localhost' |
163
|
6 |
25 |
$self->{'database'} ||= 0 |
164
|
14 |
17 |
$self->{'reconnect_attempts'} ||= 1 |
165
|
14 |
17 |
$self->{'reconnect_delay_max'} ||= 10 |
166
|
5 |
26 |
$self->{'on_connect_error'} ||= \&RedisDB::_on_connect_error |
282
|
0 |
0 |
$error_obj || 'Server closed connection, reconnecting...' |
630
|
0 |
0 |
$callback ||= \&RedisDB::_ignore |
1438
|
0 |
0 |
$self->{'_subscribed'} ||= {} |
1439
|
0 |
0 |
$self->{'_psubscribed'} ||= {} |
1488
|
0 |
0 |
$callback ||= sub {
1;
}
|
1516
|
0 |
0 |
$callback ||= sub {
1;
}
|
line |
l |
!l&&r |
!l&&!r |
condition |
148
|
1 |
1 |
3 |
$self->{'host'} || $self->{'port'} |
152
|
1 |
1 |
6 |
$self->{'host'} or $self->{'port'} |
|
1 |
1 |
5 |
$self->{'host'} or $self->{'port'} or $self->{'path'} |
233
|
1 |
13 |
0 |
$self->{'path'} || "$self->{'host'}:$self->{'port'}" |
243
|
2 |
9 |
0 |
$error_obj ||= 'RedisDB::Error::DISCONNECTED'->new('Server unexpectedly closed connection. Some data might have been lost.') |
245
|
7 |
0 |
4 |
$self->{'raise_error'} or $self->{'_in_multi'} |
|
0 |
0 |
4 |
$self->{'raise_error'} or $self->{'_in_multi'} or $self->{'_watching'} |
359
|
0 |
0 |
0 |
$1 > 5 || $1 == 5 && $2 >= 5 |
446
|
30 |
0 |
0 |
$! == 11 or $! == 11 |
463
|
0 |
0 |
17 |
$self->{'_parser'}->callbacks or $self->{'_in_multi'} |
|
0 |
0 |
17 |
$self->{'_parser'}->callbacks or $self->{'_in_multi'} or $self->{'_watching'} |
711
|
8 |
36 |
0 |
@{$self->{'_replies'};} or $self->{'_to_be_fetched'} |
|
36 |
0 |
0 |
@{$self->{'_replies'};} or $self->{'_to_be_fetched'} or $self->{'_subscription_loop'} |
716
|
0 |
0 |
2 |
$! == 4 or $! == 0 |
718
|
2 |
0 |
0 |
$! == 11 or $! == 11 |
739
|
0 |
0 |
12 |
$self->{'raise_error'} || $self->{'_in_multi'} || $self->{'_watching'} |
973
|
0 |
0 |
0 |
not $info or ref $info |
992
|
0 |
0 |
0 |
not $list or ref $list |
1459
|
0 |
0 |
0 |
CORE::keys %{$$self{'_subscribed'};} or CORE::keys %{$$self{'_psubscribed'};} |
1485
|
0 |
0 |
0 |
$callback ||= $self->{'_subscription_cb'} |
1513
|
0 |
0 |
0 |
$callback ||= $self->{'_subscription_cb'} |
1539
|
0 |
0 |
0 |
%{$self->{'_subscribed'};} or %{{} unless $self->{'_psubscribed'};} |
1567
|
0 |
0 |
0 |
%{{} unless $self->{'_subscribed'};} or %{$self->{'_psubscribed'};} |