NAME
ZMQ::Poller - Stateful wrapper around zmq_poll
SYNOPSIS
use ZMQ;
use ZMQ::Constants qw/:all/;
my $ctx = ZMQ::Context->new;
my $push = $ctx->socket(ZMQ_PUSH);
$push->bind('tcp://127.0.0.1:5908');
my $pull = $ctx->socket(ZMQ_PULL);
$pull->connect('tcp://127.0.0.1:5908');
my $poller = ZMQ::Poller->new;
$poller->register($push, ZMQ_POLLOUT);
$poller->register($pull, ZMQ_POLLIN);
my $cnt = 0;
POLL: for (;;) {
my @fired = $poller->poll(1000); # 1 second timeout
for (@fired) {
if ($_->{socket} == $push && $_->{events} == ZMQ_POLLOUT) {
$push->sendmsg("Hello world");
}
elsif ($_->{socket} == $pull && $_->{events} == ZMQ_POLLIN) {
my $msg = $pull->recvmsg;
print $msg->data . "\n";
last POLL if ++$cnt == 10;
}
}
}DESCRIPTION
ZMQ::Poller is a stateful wrapper around zmq_poll.
METHODS
ZMQ::Poller->new;
Creates a new poller object.
$poller->register($socket, ZMQ_POLLOUT|ZMQ_POLLIN)
$poller->register($fd, ZMQ_POLLOUT|ZMQ_POLLIN)
Register a socket or file descriptor for polling.
$poller->unregister($socket)
$poller->unregister($fd)
Remove the socket or file descriptor from the poller. If the same socket or file descriptor is registered for different events then all these objects are removed from the poller.
$poller->poll($timeout)
Poll the registered sockets. Returns an array of the sockets and file descriptors that fired. If no sockets or file descriptors fire within the timeout an empty array is returned.
Specify $timeout in milliseconds.
SEE ALSO
AUTHOR
Peter Stuifzand <peter@stuifzand.eu>
COPYRIGHT AND LICENSE
Copyright (C) 2012 by Peter Stuifzand
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.0 or, at your option, any later version of Perl 5 you may have available.