Parent Directory | Revision Log | Patch
revision 6 by dpavlin, Sat Mar 21 22:20:51 2009 UTC | revision 7 by dpavlin, Sat Mar 21 22:38:56 2009 UTC | |
---|---|---|
# | Line 112 sub get { | Line 112 sub get { |
112 | return $v; | return $v; |
113 | } | } |
114 | ||
115 | =head2 incr | |
116 | ||
117 | $r->incr('counter'); | |
118 | $r->incr('tripplets', 3); | |
119 | ||
120 | =cut | |
121 | ||
122 | sub incr { | |
123 | my ( $self, $key, $value ) = @_; | |
124 | if ( defined $value ) { | |
125 | print $sock "INCRBY $key $value\r\n"; | |
126 | } else { | |
127 | print $sock "INCR $key\r\n"; | |
128 | } | |
129 | my $count = <$sock>; | |
130 | warn "# $key = $count"; | |
131 | return $count; | |
132 | } | |
133 | ||
134 | =head1 AUTHOR | =head1 AUTHOR |
135 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |