383 |
|
|
384 |
sub lpop { |
sub lpop { |
385 |
my ( $self, $key ) = @_; |
my ( $self, $key ) = @_; |
386 |
$self->_sock_result_bulk( 'lpop', $key ); |
$self->_sock_result_bulk( 'LPOP', $key ); |
387 |
} |
} |
388 |
|
|
389 |
=head2 rpop |
=head2 rpop |
394 |
|
|
395 |
sub rpop { |
sub rpop { |
396 |
my ( $self, $key ) = @_; |
my ( $self, $key ) = @_; |
397 |
$self->_sock_result_bulk( 'rpop', $key ); |
$self->_sock_result_bulk( 'RPOP', $key ); |
398 |
|
} |
399 |
|
|
400 |
|
=head1 Commands operating on sets |
401 |
|
|
402 |
|
=head2 sadd |
403 |
|
|
404 |
|
$r->sadd( $key, $member ); |
405 |
|
|
406 |
|
=cut |
407 |
|
|
408 |
|
sub sadd { |
409 |
|
my ( $self, $key, $member ) = @_; |
410 |
|
$self->_sock_send_bulk_number( 'SADD', $key, $member ); |
411 |
|
} |
412 |
|
|
413 |
|
=head2 srem |
414 |
|
|
415 |
|
$r->srem( $key, $member ); |
416 |
|
|
417 |
|
=cut |
418 |
|
|
419 |
|
sub srem { |
420 |
|
my ( $self, $key, $member ) = @_; |
421 |
|
$self->_sock_send_bulk_number( 'SREM', $key, $member ); |
422 |
} |
} |
423 |
|
|
424 |
=head1 AUTHOR |
=head1 AUTHOR |