line |
true |
false |
branch |
29
|
0 |
0 |
unless (defined $server and length $server) |
32
|
0 |
0 |
unless (defined $port and length $port) |
35
|
0 |
0 |
unless (defined $username and length $username) |
38
|
0 |
0 |
unless (defined $password and length $password) |
41
|
0 |
0 |
unless (defined $clientname and length $clientname) |
57
|
0 |
0 |
unless (defined $socketpath and length $socketpath) |
60
|
0 |
0 |
unless (defined $username and length $username) |
63
|
0 |
0 |
unless (defined $password and length $password) |
66
|
0 |
0 |
unless (defined $clientname and length $clientname) |
75
|
0 |
0 |
unless ($udsloaded) |
89
|
0 |
0 |
if (not defined $username or $username eq "") |
92
|
0 |
0 |
if (not defined $password or $password eq "") |
96
|
0 |
0 |
unless (defined($clientname || $clientname eq '')) |
103
|
0 |
0 |
unless (defined $iscaching) |
108
|
0 |
0 |
if ($self->{'iscaching'}) |
134
|
0 |
0 |
if (defined $self->{'socket'}) |
138
|
0 |
0 |
unless ($self->{'firstconnect'}) |
148
|
0 |
0 |
if (defined $self->{'server'} and defined $self->{'port'}) { } |
|
0 |
0 |
elsif (defined $self->{'socketpath'}) { } |
152
|
0 |
0 |
unless $socket = "IO::Socket::IP"->new("PeerHost", $self->{'server'}, "PeerPort", $self->{'port'}, "Type", 1) |
157
|
0 |
0 |
unless $socket = "IO::Socket::UNIX"->new("Peer", $self->{'socketpath'}, "Type", 1) |
167
|
0 |
0 |
if (ref $socket ne "IO::Socket::UNIX") |
170
|
0 |
0 |
unless "IO::Socket::SSL"->start_SSL($socket, "SSL_verify_mode", 0) |
191
|
0 |
0 |
if ($self->{'firstconnect'}) { } |
217
|
0 |
0 |
if ($self->{'needreconnect'}) |
227
|
0 |
0 |
unless (defined $readtimeout) |
232
|
0 |
0 |
if ($self->{'needreconnect'}) |
236
|
0 |
0 |
if ($self->{'nextremembrance'} and time > $self->{'nextremembrance'}) |
266
|
0 |
0 |
if (length $self->{'outbuffer'}) |
276
|
0 |
0 |
if ($brokenpipe or not $writeok) |
282
|
0 |
0 |
if (defined $written and $written) |
284
|
0 |
0 |
if (length $self->{'outbuffer'} == $written) { } |
299
|
0 |
0 |
if (scalar @temp == 0) |
313
|
0 |
0 |
unless ($readok) |
318
|
0 |
0 |
if (defined $buf and length $buf) |
328
|
0 |
0 |
if ($totalread) { } |
336
|
0 |
0 |
if ($self->{'failcount'} > 5) |
344
|
0 |
0 |
if ($char eq "\r") { } |
|
0 |
0 |
elsif ($char eq "\n") { } |
347
|
0 |
0 |
if ($self->{'inbuffer'} eq "NOP") |
354
|
0 |
0 |
if ($self->{'firstline'}) |
355
|
0 |
0 |
if (not $self->{'inbuffer'} =~ /^CLACKS\ /u) { } |
371
|
0 |
0 |
if ($self->{'firstline'} and $self->{'headertimeout'} < time) |
406
|
0 |
0 |
unless (defined $line) |
412
|
0 |
0 |
if ($line =~ /^NOTIFY\ (.+)/u) { } |
|
0 |
0 |
elsif ($line =~ /^SET\ (.+?)\=(.*)/u) { } |
|
0 |
0 |
elsif ($line =~ /^CLACKS\ (.+)/u) { } |
|
0 |
0 |
elsif ($line =~ /^DEBUG\ (.+?)\=(.*)/u) { } |
|
0 |
0 |
elsif ($line =~ /^QUIT/u) { } |
|
0 |
0 |
elsif ($line =~ /^TIMEOUT/u) { } |
|
0 |
0 |
elsif ($line =~ /^RECONNECTED/u) { } |
|
0 |
0 |
elsif ($line =~ /^OVERHEAD\ (.+?)\ (.+)/u) { } |
457
|
0 |
0 |
if (contains($key, \@flagparts)) { } |
464
|
0 |
0 |
if ($parsedflags{'auth_ok'}) { } |
|
0 |
0 |
elsif ($parsedflags{'error_message'}) { } |
|
0 |
0 |
elsif ($parsedflags{'auth_failed'}) { } |
|
0 |
0 |
elsif ($parsedflags{'informal_message'}) { } |
475
|
0 |
0 |
if ($parsedflags{'forward_message'}) |
481
|
0 |
0 |
if ($parsedflags{'return_to_sender'}) |
483
|
0 |
0 |
if ($parsedflags{'no_logging'}) |
496
|
0 |
0 |
unless (defined $data{'type'}) |
509
|
0 |
0 |
if ($self->{'lastping'} < time - 120) |
530
|
0 |
0 |
unless (defined $varname and length $varname) |
535
|
0 |
0 |
if ($self->{'needreconnect'}) |
541
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
544
|
0 |
0 |
if ($self->{'needreconnect'}) |
548
|
0 |
0 |
unless length $self->{'outbuffer'} |
560
|
0 |
0 |
unless (defined $varname and length $varname) |
564
|
0 |
0 |
unless (defined $value) |
569
|
0 |
0 |
unless (defined $forcesend) |
573
|
0 |
0 |
if ($self->{'needreconnect'}) |
578
|
0 |
0 |
if ($self->{'iscaching'} and not $forcesend and defined $self->{'cache'}{$varname} and $self->{'cache'}{$varname} eq $value) |
583
|
0 |
0 |
if ($self->{'iscaching'}) |
589
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
592
|
0 |
0 |
if ($self->{'needreconnect'}) |
596
|
0 |
0 |
unless length $self->{'outbuffer'} |
609
|
0 |
0 |
unless (defined $varname and length $varname) |
614
|
0 |
0 |
if ($self->{'needreconnect'}) |
626
|
0 |
0 |
unless (defined $varname and length $varname) |
631
|
0 |
0 |
if ($self->{'needreconnect'}) |
643
|
0 |
0 |
if ($self->{'needreconnect'}) |
647
|
0 |
0 |
if (not defined $active && $active) { } |
668
|
0 |
0 |
unless (defined $varname and length $varname) |
672
|
0 |
0 |
unless (defined $value) |
677
|
0 |
0 |
if ($self->{'needreconnect'}) |
684
|
0 |
0 |
if ($self->{'needreconnect'}) |
688
|
0 |
0 |
unless length $self->{'outbuffer'} |
692
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
702
|
0 |
0 |
unless (defined $varname and length $varname) |
709
|
0 |
0 |
if ($self->{'needreconnect'}) |
718
|
0 |
0 |
if ($self->{'needreconnect'}) |
722
|
0 |
0 |
unless length $self->{'outbuffer'} |
729
|
0 |
0 |
if ($self->{'needreconnect'}) |
734
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^RETRIEVED\ $varname/u or $self->{'inlines'}[$i] =~ /^NOTRETRIEVED\ $varname/u) |
740
|
0 |
0 |
if defined $answerline |
743
|
0 |
0 |
if ($answerline =~ /^RETRIEVED\ (.+?)\=(.*)/u) |
745
|
0 |
0 |
if ($key ne $varname) |
759
|
0 |
0 |
unless (defined $varname and length $varname) |
764
|
0 |
0 |
if ($self->{'needreconnect'}) |
771
|
0 |
0 |
if ($self->{'needreconnect'}) |
775
|
0 |
0 |
unless length $self->{'outbuffer'} |
779
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
789
|
0 |
0 |
unless (defined $varname and length $varname) |
794
|
0 |
0 |
if ($self->{'needreconnect'}) |
798
|
0 |
0 |
if (not defined $stepsize) { } |
807
|
0 |
0 |
if ($self->{'needreconnect'}) |
811
|
0 |
0 |
unless length $self->{'outbuffer'} |
815
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
825
|
0 |
0 |
unless (defined $varname and length $varname) |
830
|
0 |
0 |
if ($self->{'needreconnect'}) |
834
|
0 |
0 |
if (not defined $stepsize) { } |
842
|
0 |
0 |
if ($self->{'needreconnect'}) |
846
|
0 |
0 |
unless length $self->{'outbuffer'} |
850
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
860
|
0 |
0 |
if ($self->{'needreconnect'}) |
867
|
0 |
0 |
if ($self->{'needreconnect'}) |
871
|
0 |
0 |
unless length $self->{'outbuffer'} |
875
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
885
|
0 |
0 |
if ($self->{'needreconnect'}) |
896
|
0 |
0 |
if ($self->{'needreconnect'}) |
900
|
0 |
0 |
unless length $self->{'outbuffer'} |
909
|
0 |
0 |
if ($self->{'needreconnect'}) |
916
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^KEYLISTSTART/u) |
920
|
0 |
0 |
unless $liststartfound |
921
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^KEYLISTEND/u) |
926
|
0 |
0 |
if $listendfound |
934
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^KEYLISTSTART/u) |
941
|
0 |
0 |
unless ($listfound) |
946
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^KEYLISTEND/u) |
951
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^KEY\ (.+)/u) { } |
960
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
970
|
0 |
0 |
if ($self->{'needreconnect'}) |
981
|
0 |
0 |
if ($self->{'needreconnect'}) |
985
|
0 |
0 |
unless length $self->{'outbuffer'} |
994
|
0 |
0 |
if ($self->{'needreconnect'}) |
1001
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^CLIENTLISTSTART/u) |
1005
|
0 |
0 |
unless $liststartfound |
1006
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^CLIENTLISTEND/u) |
1011
|
0 |
0 |
if $listendfound |
1019
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^CLIENTLISTSTART/u) |
1026
|
0 |
0 |
unless ($listfound) |
1031
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^CLIENTLISTEND/u) |
1036
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^CLIENT\ (.+)/u) { } |
1052
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
1062
|
0 |
0 |
if (not defined $flushid or $flushid eq "") |
1066
|
0 |
0 |
if ($self->{'needreconnect'}) |
1075
|
0 |
0 |
if ($self->{'needreconnect'}) |
1079
|
0 |
0 |
unless length $self->{'outbuffer'} |
1086
|
0 |
0 |
if ($self->{'needreconnect'}) |
1091
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^FLUSHED\ $flushid/u) |
1097
|
0 |
0 |
if defined $answerline |
1110
|
0 |
0 |
if ($line->{'type'} eq "disconnect") |
1123
|
0 |
0 |
unless (defined $command and length $command) |
1128
|
0 |
0 |
if ($self->{'needreconnect'}) |
1143
|
0 |
0 |
unless (defined $varname and length $varname) |
1148
|
0 |
0 |
unless (defined $value) |
1153
|
0 |
0 |
unless (defined $forcesend) |
1159
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
1162
|
0 |
0 |
if ($self->{'needreconnect'}) |
1166
|
0 |
0 |
unless length $self->{'outbuffer'} |
1179
|
0 |
0 |
if ($self->{'needreconnect'}) |
1188
|
0 |
0 |
if time > $endtime |
1190
|
0 |
0 |
unless length $self->{'outbuffer'} |