- my ( $self, $command, $key, $value ) = @_;
- print $sock "$command $key " . length($value) . "\r\n$value\r\n";
+ my $self = shift;
+ my $value = pop;
+ print $sock join(' ',@_) . ' ' . length($value) . "\r\n$value\r\n";
sub lindex {
my ( $self, $key, $index ) = @_;
sub lindex {
my ( $self, $key, $index ) = @_;
- $self->_sock_result_bulk( 'lindex', $key, $index );
+ $self->_sock_result_bulk( 'LINDEX', $key, $index );
+=head2 lset
+
+ $r->lset( $key, $index, $value );
+
+=cut
+
+sub lset {
+ my ( $self, $key, $index, $value ) = @_;
+ $self->_sock_send_bulk( 'LSET', $key, $index, $value );
+}
use warnings;
use strict;
use warnings;
use strict;
-use Test::More tests => 64;
+use Test::More tests => 66;
cmp_ok( $o->lindex( $list, 0 ), 'eq', 'l1', 'lindex' );
cmp_ok( $o->lindex( $list, 1 ), 'eq', 'r1', 'lindex' );
cmp_ok( $o->lindex( $list, 0 ), 'eq', 'l1', 'lindex' );
cmp_ok( $o->lindex( $list, 1 ), 'eq', 'r1', 'lindex' );
+ok( $o->lset( $list, 0, 'foo' ), 'lset' );
+cmp_ok( $o->lindex( $list, 0 ), 'eq', 'foo', 'verified' );
+