PUB-SUB with multipart messages
file: bin/anyevent_publisher.pl 14: say "Start publishing messages"; 15: my $w = AnyEvent->timer(after => 1, interval => 0.1, cb => sub { 16: my $message = $data->[rand(@$data)]; 17: my $last_frame = pop(@$message); 18: foreach my $frame (@$message) { 19: zmq_msg_send($frame, $publisher, ZMQ_SNDMORE); 20: } 21: zmq_msg_send($last_frame, $publisher); 22: }); 23: AnyEvent->condvar->recv;
we set up an AnyEvent Timer