=head2 lrem
- $r->lrem( $key, $count, $value );
+ my $modified_count = $r->lrem( $key, $count, $value );
=cut
$self->_sock_send_bulk_number( 'LREM', $key, $count, $value );
}
+=head2 lpop
+
+ my $value = $r->lpop( $key );
+
+=cut
+
+sub lpop {
+ my ( $self, $key ) = @_;
+ $self->_sock_result_bulk( 'lpop', $key );
+}
+
+=head2 rpop
+
+ my $value = $r->rpop( $key );
+
+=cut
+
+sub rpop {
+ my ( $self, $key ) = @_;
+ $self->_sock_result_bulk( 'rpop', $key );
+}
+
=head1 AUTHOR
Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>
use warnings;
use strict;
-use Test::More tests => 69;
+use Test::More tests => 71;
use lib 'lib';
ok( $o->lrem( $list, 1, 'foo' ), 'lrem' );
cmp_ok( $o->llen( $list ), '==', 1, 'llen after lrem' );
+cmp_ok( $o->lpop( $list ), 'eq', 'r1', 'lpop' );
+
+ok( ! $o->rpop( $list ), 'rpop' );
+
ok( $o->quit, 'quit' );