Message queue broker in Perl
#!/usr/bin/perl
=pod
Simple message queuing broker
Same as request-reply broker but using QUEUE device
Author: Alexander D'Archangel (darksuji) <darksuji(at)gmail(dot)com>
=cut
use strict;
use warnings;
use 5.10.0;
use ZeroMQ qw/:all/;
use ZeroMQ::Raw qw/zmq_device/;
my $context = ZeroMQ::Context->new();
# Socket facing clients
my $frontend = $context->socket(ZMQ_ROUTER);
$frontend->bind('tcp://*:5559');
# Socket facing services
my $backend = $context->socket(ZMQ_DEALER);
$backend->bind('tcp://*:5560');
# Start built-in device
# Having to send raw sockets here is an infelicity in ZeroMQ 0.09
zmq_device(ZMQ_QUEUE, $frontend->socket, $backend->socket);
# We never get here…