+=head2 sinterstore
+
+ my $ok = $r->sinterstore( $dstkey, $key1, $key2, ... );
+
+=cut
+
+sub sinterstore {
+ my $self = shift;
+ $self->_sock_send_ok( 'SINTERSTORE', @_ );
+}
+
+=head1 Multiple databases handling commands
+
+=head2 select
+
+ $r->select( 1 );
+
+=cut
+
+sub select {
+ my ($self,$index) = @_;
+ $self->_sock_send_ok( 'SELECT', $index );
+}
+