--- lib/Redis.pm 2009/03/22 13:37:49 26 +++ lib/Redis.pm 2009/03/22 13:44:19 27 @@ -362,7 +362,7 @@ =head2 lrem - $r->lrem( $key, $count, $value ); + my $modified_count = $r->lrem( $key, $count, $value ); =cut @@ -371,6 +371,28 @@ $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<< >>