warn "## bulk len: ",dump($len);
return undef if $len eq "nil\r\n";
my $v;
- read($sock, $v, $len) || die $!;
- warn "## bulk v: ",dump($v);
+ if ( $len > 0 ) {
+ read($sock, $v, $len) || die $!;
+ warn "## bulk v: ",dump($v);
+ }
my $crlf;
read($sock, $crlf, 2); # skip cr/lf
return $v;
sub __sock_ok {
my $ok = <$sock>;
+ return undef if $ok eq "nil\r\n";
confess dump($ok) unless $ok eq "+OK\r\n";
}
my $self = shift;
warn "## _sock_send_bulk ",dump( @_ );
my $value = pop;
- print $sock join(' ',@_) . ' ' . length($value) . "\r\n$value\r\n";
+ $value = '' unless defined $value; # FIXME errr? nil?
+ print $sock join(' ',@_) . ' ' . length($value) . "\r\n$value\r\n"
}
sub _sock_send_bulk {
sub lpop {
my ( $self, $key ) = @_;
- $self->_sock_result_bulk( 'lpop', $key );
+ $self->_sock_result_bulk( 'LPOP', $key );
}
=head2 rpop
sub rpop {
my ( $self, $key ) = @_;
- $self->_sock_result_bulk( 'rpop', $key );
+ $self->_sock_result_bulk( 'RPOP', $key );
+}
+
+=head1 Commands operating on sets
+
+=head2 sadd
+
+ $r->sadd( $key, $member );
+
+=cut
+
+sub sadd {
+ my ( $self, $key, $member ) = @_;
+ $self->_sock_send_bulk_number( 'SADD', $key, $member );
+}
+
+=head2 srem
+
+ $r->srem( $key, $member );
+
+=cut
+
+sub srem {
+ my ( $self, $key, $member ) = @_;
+ $self->_sock_send_bulk_number( 'SREM', $key, $member );
+}
+
+=head2 scard
+
+ my $elements = $r->scard( $key );
+
+=cut
+
+sub scard {
+ my ( $self, $key ) = @_;
+ $self->_sock_send( 'SCARD', $key );
+}
+
+=head2 sismember
+
+ $r->sismember( $key, $member );
+
+=cut
+
+sub sismember {
+ my ( $self, $key, $member ) = @_;
+ $self->_sock_send_bulk_number( 'SISMEMBER', $key, $member );
}
=head1 AUTHOR