/[Redis.pre-github]/lib/Redis.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Redis.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2 by dpavlin, Sat Mar 21 21:25:52 2009 UTC revision 3 by dpavlin, Sat Mar 21 21:40:53 2009 UTC
# Line 66  sub quit { Line 66  sub quit {
66    
67  =head2 ping  =head2 ping
68    
69          $r->ping || die "no server?";    $r->ping || die "no server?";
70    
71  =cut  =cut
72    
# Line 76  sub ping { Line 76  sub ping {
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> >>

Legend:
Removed from v.2  
changed lines
  Added in v.3

  ViewVC Help
Powered by ViewVC 1.1.26