97 |
} |
} |
98 |
|
|
99 |
sub _sock_send_bulk { |
sub _sock_send_bulk { |
100 |
my ( $self, $command, $key, $value ) = @_; |
my $self = shift; |
101 |
print $sock "$command $key " . length($value) . "\r\n$value\r\n"; |
my $value = pop; |
102 |
|
print $sock join(' ',@_) . ' ' . length($value) . "\r\n$value\r\n"; |
103 |
_sock_ok(); |
_sock_ok(); |
104 |
} |
} |
105 |
|
|
335 |
|
|
336 |
sub lindex { |
sub lindex { |
337 |
my ( $self, $key, $index ) = @_; |
my ( $self, $key, $index ) = @_; |
338 |
$self->_sock_result_bulk( 'lindex', $key, $index ); |
$self->_sock_result_bulk( 'LINDEX', $key, $index ); |
339 |
} |
} |
340 |
|
|
341 |
|
=head2 lset |
342 |
|
|
343 |
|
$r->lset( $key, $index, $value ); |
344 |
|
|
345 |
|
=cut |
346 |
|
|
347 |
|
sub lset { |
348 |
|
my ( $self, $key, $index, $value ) = @_; |
349 |
|
$self->_sock_send_bulk( 'LSET', $key, $index, $value ); |
350 |
|
} |
351 |
|
|
352 |
=head1 AUTHOR |
=head1 AUTHOR |
353 |
|
|