| 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'}) |
|
132
|
0 |
0 |
if (defined $self->{'selector'} and defined $self->{'socket'}) |
|
137
|
0 |
0 |
if (defined $self->{'socket'}) |
|
142
|
0 |
0 |
unless ($self->{'firstconnect'}) |
|
152
|
0 |
0 |
if (defined $self->{'server'} and defined $self->{'port'}) { } |
|
|
0 |
0 |
elsif (defined $self->{'socketpath'}) { } |
|
156
|
0 |
0 |
unless $socket = "IO::Socket::IP"->new("PeerHost", $self->{'server'}, "PeerPort", $self->{'port'}, "Type", 1) |
|
161
|
0 |
0 |
unless $socket = "IO::Socket::UNIX"->new("Peer", $self->{'socketpath'}, "Type", 1) |
|
171
|
0 |
0 |
if (ref $socket ne "IO::Socket::UNIX") |
|
174
|
0 |
0 |
unless "IO::Socket::SSL"->start_SSL($socket, "SSL_verify_mode", 0) |
|
195
|
0 |
0 |
if ($self->{'firstconnect'}) { } |
|
217
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
225
|
0 |
0 |
unless (defined $readtimeout) |
|
232
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
236
|
0 |
0 |
if ($self->{'nextremembrance'} and &Net::Clacks::Client::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) { } |
|
292
|
0 |
0 |
if ($readtimeout < 0) |
|
302
|
0 |
0 |
if (scalar @temp == 0) |
|
316
|
0 |
0 |
unless ($readok) |
|
321
|
0 |
0 |
if (defined $buf and length $buf) |
|
331
|
0 |
0 |
if ($totalread) { } |
|
339
|
0 |
0 |
if ($self->{'failcount'} > 5) |
|
347
|
0 |
0 |
if ($char eq "\r") { } |
|
|
0 |
0 |
elsif ($char eq "\n") { } |
|
350
|
0 |
0 |
if ($self->{'inbuffer'} eq "NOP") |
|
357
|
0 |
0 |
if ($self->{'firstline'}) |
|
358
|
0 |
0 |
if (not $self->{'inbuffer'} =~ /^CLACKS\ /u) { } |
|
374
|
0 |
0 |
if ($self->{'firstline'} and $self->{'headertimeout'} < &Net::Clacks::Client::time()) |
|
407
|
0 |
0 |
unless (defined $line) |
|
413
|
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) { } |
|
458
|
0 |
0 |
if (contains($key, \@flagparts)) { } |
|
465
|
0 |
0 |
if ($parsedflags{'auth_ok'}) { } |
|
|
0 |
0 |
elsif ($parsedflags{'error_message'}) { } |
|
|
0 |
0 |
elsif ($parsedflags{'auth_failed'}) { } |
|
|
0 |
0 |
elsif ($parsedflags{'informal_message'}) { } |
|
476
|
0 |
0 |
if ($parsedflags{'forward_message'}) |
|
482
|
0 |
0 |
if ($parsedflags{'return_to_sender'}) |
|
484
|
0 |
0 |
if ($parsedflags{'no_logging'}) |
|
497
|
0 |
0 |
unless (defined $data{'type'}) |
|
508
|
0 |
0 |
if ($self->{'lastping'} < &Net::Clacks::Client::time() - 120) |
|
525
|
0 |
0 |
unless (defined $varname and length $varname) |
|
530
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
536
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
539
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
543
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
553
|
0 |
0 |
unless (defined $varname and length $varname) |
|
557
|
0 |
0 |
unless (defined $value) |
|
562
|
0 |
0 |
unless (defined $forcesend) |
|
566
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
571
|
0 |
0 |
if ($self->{'iscaching'} and not $forcesend and defined $self->{'cache'}{$varname} and $self->{'cache'}{$varname} eq $value) |
|
576
|
0 |
0 |
if ($self->{'iscaching'}) |
|
582
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
585
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
589
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
600
|
0 |
0 |
unless (defined $varname and length $varname) |
|
605
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
615
|
0 |
0 |
unless (defined $varname and length $varname) |
|
620
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
630
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
634
|
0 |
0 |
if (not defined $active && $active) { } |
|
651
|
0 |
0 |
unless (defined $varname and length $varname) |
|
655
|
0 |
0 |
unless (defined $value) |
|
660
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
667
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
671
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
675
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
683
|
0 |
0 |
unless (defined $varname and length $varname) |
|
690
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
699
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
703
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
710
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
715
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^RETRIEVED\ $varname/u or $self->{'inlines'}[$i] =~ /^NOTRETRIEVED\ $varname/u) |
|
721
|
0 |
0 |
if defined $answerline |
|
724
|
0 |
0 |
if ($answerline =~ /^RETRIEVED\ (.+?)\=(.*)/u) |
|
726
|
0 |
0 |
if ($key ne $varname) |
|
738
|
0 |
0 |
unless (defined $varname and length $varname) |
|
743
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
750
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
754
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
758
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
766
|
0 |
0 |
unless (defined $varname and length $varname) |
|
771
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
775
|
0 |
0 |
if (not defined $stepsize or $stepsize eq '') { } |
|
784
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
788
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
792
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
800
|
0 |
0 |
unless (defined $varname and length $varname) |
|
805
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
809
|
0 |
0 |
if (not defined $stepsize or $stepsize eq '') { } |
|
817
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
821
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
825
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
833
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
840
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
844
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
848
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
856
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
867
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
871
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
880
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
887
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^KEYLISTSTART/u) |
|
891
|
0 |
0 |
unless $liststartfound |
|
892
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^KEYLISTEND/u) |
|
897
|
0 |
0 |
if $listendfound |
|
905
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^KEYLISTSTART/u) |
|
912
|
0 |
0 |
unless ($listfound) |
|
917
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^KEYLISTEND/u) |
|
922
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^KEY\ (.+)/u) { } |
|
931
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
939
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
950
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
954
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
963
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
970
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^CLIENTLISTSTART/u) |
|
974
|
0 |
0 |
unless $liststartfound |
|
975
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^CLIENTLISTEND/u) |
|
980
|
0 |
0 |
if $listendfound |
|
988
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^CLIENTLISTSTART/u) |
|
995
|
0 |
0 |
unless ($listfound) |
|
1000
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^CLIENTLISTEND/u) |
|
1005
|
0 |
0 |
if ($self->{'inlines'}[$idx] =~ /^CLIENT\ (.+)/u) { } |
|
1021
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
1029
|
0 |
0 |
if (not defined $flushid or $flushid eq "") |
|
1033
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
1042
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
1046
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
1053
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
1058
|
0 |
0 |
if ($self->{'inlines'}[$i] =~ /^FLUSHED\ $flushid/u) |
|
1064
|
0 |
0 |
if defined $answerline |
|
1075
|
0 |
0 |
if ($line->{'type'} eq "disconnect") |
|
1086
|
0 |
0 |
unless (defined $command and length $command) |
|
1091
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
1104
|
0 |
0 |
unless (defined $varname and length $varname) |
|
1109
|
0 |
0 |
unless (defined $value) |
|
1114
|
0 |
0 |
unless (defined $forcesend) |
|
1120
|
0 |
0 |
if ($self->{'memcached_compatibility'}) |
|
1123
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
1127
|
0 |
0 |
unless length $self->{'outbuffer'} |
|
1138
|
0 |
0 |
if (defined $self->{'socket'}) |
|
1146
|
0 |
0 |
if ($self->{'needreconnect'}) |
|
1155
|
0 |
0 |
if &Net::Clacks::Client::time() > $endtime |
|
1160
|
0 |
0 |
if ($timetaken > 1) |
|
1163
|
0 |
0 |
unless length $self->{'outbuffer'} |