$self->_sock_send_bulk('RPUSH', $key, $value);
}
$self->_sock_send_bulk('RPUSH', $key, $value);
}
+=head2 lpush
+
+ $r->lpush( $key, $value );
+
+=cut
+
+sub lpush {
+ my ( $self, $key, $value ) = @_;
+ $self->_sock_send_bulk('LPUSH', $key, $value);
+}
+
=head1 AUTHOR
Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>
=head1 AUTHOR
Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>
use warnings;
use strict;
use warnings;
use strict;
-use Test::More tests => 54;
+use Test::More tests => 55;
ok( $o->rpush( 'test-list' => 'foo' ), 'rpush' );
ok( $o->rpush( 'test-list' => 'foo' ), 'rpush' );
+ok( $o->lpush( 'test-list' => 'foo' ), 'lpush' );