Parent Directory | Revision Log | Patch
revision 8 by dpavlin, Sat Mar 21 22:48:46 2009 UTC | revision 9 by dpavlin, Sat Mar 21 22:54:10 2009 UTC | |
---|---|---|
# | Line 150 sub decr { | Line 150 sub decr { |
150 | return $count; | return $count; |
151 | } | } |
152 | ||
153 | =head2 exists | |
154 | ||
155 | $r->exists( 'key' ) && print "got key!"; | |
156 | ||
157 | =cut | |
158 | ||
159 | sub exists { | |
160 | my ( $self, $key ) = @_; | |
161 | print $sock "EXISTS $key\r\n"; | |
162 | my $found = <$sock>; | |
163 | $found =~ s{\r\n$}{}; | |
164 | warn "# exists $key = $found"; | |
165 | return $found; | |
166 | } | |
167 | ||
168 | =head1 AUTHOR | =head1 AUTHOR |
169 | ||
170 | Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >> | Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >> |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |