Lines Matching refs:sock

88     my $sock;
90         $sock = IO::Socket::UNIX->new(
97         $sock = IO::Socket::INET->new(
102     die "Couldn't connect to $addr\n" unless $sock;
103     return $sock;
106 my $sock = server_connect();
112     print $sock "lru_crawler metadump all\r\n";
115     while (<$sock>) {
139         close($sock);
140         $sock = server_connect();
144         print $sock "get $k\r\n";
145         my $response = <$sock>;
150             read $sock, $val, $len;
153             $_ = <$sock>;
154             $_ = <$sock>;
164     print $sock "lru_crawler metadump all\r\n";
167     while (<$sock>) {
182     print $sock "stats\r\n";
184     while (<$sock>) {
202     print $sock "stats settings\r\n";
204     while (<$sock>) {
222     print $sock "stats sizes\r\n";
224     while (<$sock>) {
244 print $sock "stats items\r\n";
246 while (<$sock>) {
253 print $sock "stats slabs\r\n";
254 while (<$sock>) {