83 |
|
|
84 |
if ( defined $bulk_command->{$command} ) { |
if ( defined $bulk_command->{$command} ) { |
85 |
my $value = pop; |
my $value = pop; |
86 |
|
$value = '' if ! defined $value; |
87 |
$send |
$send |
88 |
= uc($command) |
= uc($command) |
89 |
. ' ' |
. ' ' |
90 |
. join(' ', @_) |
. join(' ', @_) |
91 |
. ' ' |
. ' ' |
92 |
. length($value) |
. length( $value ) |
93 |
. "\r\n$value\r\n" |
. "\r\n$value\r\n" |
94 |
; |
; |
95 |
} else { |
} else { |
122 |
} |
} |
123 |
return $hash; |
return $hash; |
124 |
} elsif ( $command eq 'keys' ) { |
} elsif ( $command eq 'keys' ) { |
125 |
return split(/\s/, __sock_read_bulk($result)); |
my $keys = __sock_read_bulk($result); |
126 |
|
return split(/\s/, $keys) if $keys; |
127 |
|
return; |
128 |
} |
} |
129 |
|
|
130 |
if ( $type eq '-' ) { |
if ( $type eq '-' ) { |