'IO::Socket::INET' => 0,
'Data::Dumper' => 0,
'Carp' => 0,
'IO::Socket::INET' => 0,
'Data::Dumper' => 0,
'Carp' => 0,
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'Redis-*' },
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'Redis-*' },
use IO::Socket::INET;
use Data::Dumper;
use Carp qw/confess/;
use IO::Socket::INET;
use Data::Dumper;
use Carp qw/confess/;
}
my $result = <$sock> || die "can't read socket: $!";
}
my $result = <$sock> || die "can't read socket: $!";
+ Encode::_utf8_on($result);
warn "<< $result" if $self->{debug};
my $type = substr($result,0,1);
$result = substr($result,1,-2);
warn "<< $result" if $self->{debug};
my $type = substr($result,0,1);
$result = substr($result,1,-2);
my $v;
if ( $len > 0 ) {
read($self->{sock}, $v, $len) || die $!;
my $v;
if ( $len > 0 ) {
read($self->{sock}, $v, $len) || die $!;
warn "<< ",Dumper($v),$/ if $self->{debug};
}
my $crlf;
warn "<< ",Dumper($v),$/ if $self->{debug};
}
my $crlf;