Lines Matching refs:sock

18 my $sock = IO::Socket::INET->new(PeerAddr => $addr,
20 die "$!\n" unless $sock;
32         print $sock "add foo 0 0 1 $param\r\n1\r\n";
33         scalar<$sock> unless $noreply;
34         print $sock "set foo 0 0 1 $param\r\n1\r\n";
35         scalar<$sock> unless $noreply;
36         print $sock "replace foo 0 0 1 $param\r\n1\r\n";
37         scalar<$sock> unless $noreply;
38         print $sock "append foo 0 0 1 $param\r\n1\r\n";
39         scalar<$sock> unless $noreply;
40         print $sock "prepend foo 0 0 1 $param\r\n1\r\n";
41         scalar<$sock> unless $noreply;
42         print $sock "incr foo 1 $param\r\n";
43         scalar<$sock> unless $noreply;
44         print $sock "decr foo 1 $param\r\n";
45         scalar<$sock> unless $noreply;
46         print $sock "delete foo $param\r\n";
47         scalar<$sock> unless $noreply;