ZMQ::LibZMQ3 and AnyEvent
file: bin/anyevent_req_rep_hello_world_server.pl
12: my $w = AnyEvent->io(
13: fh => $fd,
14: poll => "r",
15: cb => sub {
16: my $msg = zmq_msg_data(zmq_recvmsg($server));
17: say "server got >$msg<";
18: zmq_send( $server, "Hello $msg!" );
19: say "replied with >Hello $msg!<";
20: },
21: );
22: AnyEvent->condvar->recv;
and we wait for a condvar that will never be sent