Lines Matching refs:sock

63 my $sock;
65     $sock = IO::Socket::UNIX->new(
72     $sock = IO::Socket::INET->new(
77 die "Couldn't connect to $addr\n" unless $sock;
83     print $sock "stats items\r\n";
85     while (<$sock>) {
98         print $sock "stats cachedump $bucket $items{$bucket}\r\n";
100         while (<$sock>) {
110             print $sock "get $k\r\n";
111             my $response = <$sock>;
116                 read $sock, $val, $len;
119                 $_ = <$sock>;
120                 $_ = <$sock>;
130     print $sock "stats\r\n";
132     while (<$sock>) {
150     print $sock "stats settings\r\n";
152     while (<$sock>) {
170     print $sock "stats sizes\r\n";
172     while (<$sock>) {
192 print $sock "stats items\r\n";
194 while (<$sock>) {
201 print $sock "stats slabs\r\n";
202 while (<$sock>) {