+=head1 Commands operating on string values
+
+=head2 set
+
+ $r->set( foo => 'bar' );
+
+=cut
+
+sub set {
+ my ( $self, $k, $v ) = @_;
+ print $sock "SET $k " . length($v) . "\r\n$v\r\n";
+ my $ok = <$sock>;
+ die dump($ok) unless $ok eq "+OK\r\n";
+}
+
+=head2 get
+
+ my $value = $r->get( 'foo' );
+
+=cut
+
+sub get {
+ my ( $self, $k ) = @_;
+ print $sock "GET $k\r\n";
+ my $len = <$sock>;
+ my $v;
+ read($sock, $v, $len) || die $!;
+ return $v;
+}
+