Lines Matching refs:sock

24     my ($sock, $type) = @_;
26     print $sock "stats$type\r\n";
28     while (<$sock>) {
41     my $sock = ref $sock_opts eq "HASH" ? $opts->{sock} : $sock_opts;
47     print $sock "get $key\r\n";
49         my $line = scalar <$sock>;
51             $line .= scalar(<$sock>) . scalar(<$sock>);
56         my $body = scalar(<$sock>);
62         $body .= scalar(<$sock>) . scalar(<$sock>);
71     my $sock = ref $sock_opts eq "HASH" ? $opts->{sock} : $sock_opts;
75     print $sock "gets $key\r\n";
76     my $response = <$sock>;
86         read $sock, $val , $len;
88         $_ = <$sock>;
89         $_ = <$sock>;
99     my $sock = ref $sock_opts eq "HASH" ? $opts->{sock} : $sock_opts;
105     print $sock "gets $key\r\n";
107         my $line = scalar <$sock>;
109             $line .= scalar(<$sock>) . scalar(<$sock>);
114         my $body = scalar(<$sock>);
120         $body .= scalar(<$sock>) . scalar(<$sock>);
127     my $sock;
129     while (!$sock) {
131         $sock = IO::Socket::INET->new(LocalAddr => '127.0.0.1',
239 sub sock {  subroutine