/[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 61 by dpavlin, Sat Sep 12 15:08:59 2009 UTC revision 63 by dpavlin, Mon Sep 14 11:37:25 2009 UTC
# Line 4  use warnings; Line 4  use warnings;
4  use strict;  use strict;
5    
6  use IO::Socket::INET;  use IO::Socket::INET;
7  use Data::Dump qw/dump/;  use Data::Dumper;
8  use Carp qw/confess/;  use Carp qw/confess/;
9    
10  =head1 NAME  =head1 NAME
# Line 75  sub AUTOLOAD { Line 75  sub AUTOLOAD {
75          my $command = $AUTOLOAD;          my $command = $AUTOLOAD;
76          $command =~ s/.*://;          $command =~ s/.*://;
77    
78          warn "## $command ",dump(@_) if $self->{debug};          warn "## $command ",Dumper(@_) if $self->{debug};
79    
80          my $send;          my $send;
81    
# Line 147  sub __read_bulk { Line 147  sub __read_bulk {
147          my $v;          my $v;
148          if ( $len > 0 ) {          if ( $len > 0 ) {
149                  read($self->{sock}, $v, $len) || die $!;                  read($self->{sock}, $v, $len) || die $!;
150                  warn "<< ",dump($v),$/ if $self->{debug};                  warn "<< ",Dumper($v),$/ if $self->{debug};
151          }          }
152          my $crlf;          my $crlf;
153          read($self->{sock}, $crlf, 2); # skip cr/lf          read($self->{sock}, $crlf, 2); # skip cr/lf
# Line 166  sub __read_multi_bulk { Line 166  sub __read_multi_bulk {
166                  $list[ $_ ] = $self->__read_bulk( substr(<$sock>,1,-2) );                  $list[ $_ ] = $self->__read_bulk( substr(<$sock>,1,-2) );
167          }          }
168    
169          warn "## list = ", dump( @list ) if $self->{debug};          warn "## list = ", Dumper( @list ) if $self->{debug};
170          return @list;          return @list;
171  }  }
172    
Legend:
Removed from v.61  
changed lines
  Added in v.63
  ViewVC Help
Powered by ViewVC 1.1.26