sub _sock_send_bulk {
my ( $self, $command, $key, $value ) = @_;
print $sock "$command $key " . length($value) . "\r\n$value\r\n";
sub _sock_send_bulk {
my ( $self, $command, $key, $value ) = @_;
print $sock "$command $key " . length($value) . "\r\n$value\r\n";