66 |
|
|
67 |
=head2 ping |
=head2 ping |
68 |
|
|
69 |
$r->ping || die "no server?"; |
$r->ping || die "no server?"; |
70 |
|
|
71 |
=cut |
=cut |
72 |
|
|
76 |
die "ping failed, got ", dump($pong) unless $pong eq "+PONG\r\n"; |
die "ping failed, got ", dump($pong) unless $pong eq "+PONG\r\n"; |
77 |
} |
} |
78 |
|
|
79 |
|
=head1 Commands operating on string values |
80 |
|
|
81 |
|
=head2 set |
82 |
|
|
83 |
|
$r->set( foo => 'bar' ); |
84 |
|
|
85 |
|
=cut |
86 |
|
|
87 |
|
sub set { |
88 |
|
my ( $self, $k, $v ) = @_; |
89 |
|
print $sock "SET $k " . length($v) . "\r\n$v\r\n"; |
90 |
|
my $ok = <$sock>; |
91 |
|
die dump($ok) unless $ok eq "+OK\r\n"; |
92 |
|
} |
93 |
|
|
94 |
|
=head2 get |
95 |
|
|
96 |
|
my $value = $r->get( 'foo' ); |
97 |
|
|
98 |
|
=cut |
99 |
|
|
100 |
|
sub get { |
101 |
|
my ( $self, $k ) = @_; |
102 |
|
print $sock "GET $k\r\n"; |
103 |
|
my $len = <$sock>; |
104 |
|
my $v; |
105 |
|
read($sock, $v, $len) || die $!; |
106 |
|
return $v; |
107 |
|
} |
108 |
|
|
109 |
=head1 AUTHOR |
=head1 AUTHOR |
110 |
|
|
111 |
Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >> |
Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >> |