| line |
true |
false |
branch |
|
30
|
0 |
0 |
unless (defined $server and length $server) |
|
33
|
0 |
0 |
unless (defined $port and length $port) |
|
36
|
0 |
0 |
unless (defined $username and length $username) |
|
39
|
0 |
0 |
unless (defined $password and length $password) |
|
42
|
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) |
|
87
|
0 |
0 |
if (not defined $username or $username eq "") |
|
90
|
0 |
0 |
if (not defined $password or $password eq "") |
|
94
|
0 |
0 |
unless (defined($clientname || $clientname eq '')) |
|
101
|
0 |
0 |
unless (defined $iscaching) |
|
106
|
0 |
0 |
if ($self->{'iscaching'}) |
|
130
|
0 |
0 |
if (defined $self->{'socket'}) |
|
134
|
0 |
0 |
unless ($self->{'firstconnect'}) |
|
144
|
0 |
0 |
if (defined $self->{'server'} and defined $self->{'port'}) { } |
|
|
0 |
0 |
elsif (defined $self->{'socketpath'}) { } |
|
148
|
0 |
0 |
unless $socket = "IO::Socket::IP"->new("PeerHost", $self->{'server'}, "PeerPort", $self->{'port'}, "Type", 1) |
|
153
|
0 |
0 |
unless $socket = "IO::Socket::UNIX"->new("Peer", $self->{'socketpath'}, "Type", 1) |
|
163
|
0 |
0 |
if (ref $socket ne "IO::Socket::UNIX") |
|
166
|
0 |
0 |
unless "IO::Socket::SSL"->start_SSL($socket, "SSL_verify_mode", 0) |
|
187
|
0 |
0 |
if ($self->{'firstconnect'}) { } |
|
209
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
217
|
0 |
0 |
unless (defined $readtimeout) |
|
222
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
226
|
0 |
0 |
if ($self->{'nextremembrance'} and time > $self->{'nextremembrance'}) |
|
256
|
0 |
0 |
if (length $self->{'outbuffer'}) |
|
266
|
0 |
0 |
if ($brokenpipe or not $writeok) |
|
272
|
0 |
0 |
if (defined $written and $written) |
|
274
|
0 |
0 |
if (length $self->{'outbuffer'} == $written) { } |
|
289
|
0 |
0 |
if (scalar @temp == 0) |
|
303
|
0 |
0 |
unless ($readok) |
|
308
|
0 |
0 |
if (defined $buf and length $buf) |
|
318
|
0 |
0 |
if ($totalread) { } |
|
326
|
0 |
0 |
if ($self->{'failcount'} > 5) |
|
334
|
0 |
0 |
if ($char eq "\r") { } |
|
|
0 |
0 |
elsif ($char eq "\n") { } |
|
337
|
0 |
0 |
if ($self->{'inbuffer'} eq "NOP") |
|
344
|
0 |
0 |
if ($self->{'firstline'}) |
|
345
|
0 |
0 |
if (not $self->{'inbuffer'} =~ /^CLACKS\ /u) { } |
|
361
|
0 |
0 |
if ($self->{'firstline'} and $self->{'headertimeout'} < time) |
|
394
|
0 |
0 |
unless (defined $line) |
|
400
|
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) { } |
|
445
|
0 |
0 |
if (contains($key, \@flagparts)) { } |
|
452
|
0 |
0 |
if ($parsedflags{'auth_ok'}) { } |
|
|
0 |
0 |
elsif ($parsedflags{'error_message'}) { } |
|
|
0 |
0 |
elsif ($parsedflags{'auth_failed'}) { } |
|
|
0 |
0 |
elsif ($parsedflags{'informal_message'}) { } |
|
463
|
0 |
0 |
if ($parsedflags{'forward_message'}) |
|
469
|
0 |
0 |
if ($parsedflags{'return_to_sender'}) |
|
471
|
0 |
0 |
if ($parsedflags{'no_logging'}) |
|
484
|
0 |
0 |
unless (defined $data{'type'}) |
|
495
|
0 |
0 |
if ($self->{'lastping'} < time - 120) |
|
512
|
0 |
0 |
unless (defined $varname and length $varname) |
|
517
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
523
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
526
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
530
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
540
|
0 |
0 |
unless (defined $varname and length $varname) |
|
544
|
0 |
0 |
unless (defined $value) |
|
549
|
0 |
0 |
unless (defined $forcesend) |
|
553
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
558
|
0 |
0 |
if ($self->{'iscaching'} and not $forcesend and defined $self->{'cache'}{$varname} and $self->{'cache'}{$varname} eq $value) |
|
563
|
0 |
0 |
if ($self->{'iscaching'}) |
|
569
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
572
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
576
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
587
|
0 |
0 |
unless (defined $varname and length $varname) |
|
592
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
602
|
0 |
0 |
unless (defined $varname and length $varname) |
|
607
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
617
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
621
|
0 |
0 |
if (not defined $active && $active) { } |
|
638
|
0 |
0 |
unless (defined $varname and length $varname) |
|
642
|
0 |
0 |
unless (defined $value) |
|
647
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
654
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
658
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
662
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
670
|
0 |
0 |
unless (defined $varname and length $varname) |
|
677
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
686
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
690
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
697
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
702
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^RETRIEVED\ $varname/u or $self->{'inlines'}[$i] =~ /^NOTRETRIEVED\ $varname/u) |
|
708
|
0 |
0 |
if defined $answerline |
|
711
|
0 |
0 |
if ($answerline =~ /^RETRIEVED\ (.+?)\=(.*)/u) |
|
713
|
0 |
0 |
if ($key ne $varname) |
|
725
|
0 |
0 |
unless (defined $varname and length $varname) |
|
730
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
737
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
741
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
745
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
753
|
0 |
0 |
unless (defined $varname and length $varname) |
|
758
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
762
|
0 |
0 |
if (not defined $stepsize or $stepsize eq '') { } |
|
771
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
775
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
779
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
787
|
0 |
0 |
unless (defined $varname and length $varname) |
|
792
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
796
|
0 |
0 |
if (not defined $stepsize or $stepsize eq '') { } |
|
804
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
808
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
812
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
820
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
827
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
831
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
835
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
843
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
854
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
858
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
867
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
874
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^KEYLISTSTART/u) |
|
878
|
0 |
0 |
unless $liststartfound |
|
879
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^KEYLISTEND/u) |
|
884
|
0 |
0 |
if $listendfound |
|
892
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^KEYLISTSTART/u) |
|
899
|
0 |
0 |
unless ($listfound) |
|
904
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^KEYLISTEND/u) |
|
909
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^KEY\ (.+)/u) { } |
|
918
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
926
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
937
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
941
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
950
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
957
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^CLIENTLISTSTART/u) |
|
961
|
0 |
0 |
unless $liststartfound |
|
962
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^CLIENTLISTEND/u) |
|
967
|
0 |
0 |
if $listendfound |
|
975
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^CLIENTLISTSTART/u) |
|
982
|
0 |
0 |
unless ($listfound) |
|
987
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^CLIENTLISTEND/u) |
|
992
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^CLIENT\ (.+)/u) { } |
|
1008
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
1016
|
0 |
0 |
if (not defined $flushid or $flushid eq "") |
|
1020
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
1029
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
1033
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
1040
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
1045
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^FLUSHED\ $flushid/u) |
|
1051
|
0 |
0 |
if defined $answerline |
|
1062
|
0 |
0 |
if ($line->{'type'} eq "disconnect") |
|
1073
|
0 |
0 |
unless (defined $command and length $command) |
|
1078
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
1091
|
0 |
0 |
unless (defined $varname and length $varname) |
|
1096
|
0 |
0 |
unless (defined $value) |
|
1101
|
0 |
0 |
unless (defined $forcesend) |
|
1107
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
1110
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
1114
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
1125
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
1134
|
0 |
0 |
if time > $endtime |
|
1136
|
0 |
0 |
unless length $self->{'outbuffer'} |