The Ventilator
file: bin/zmqx_ventilator.pl @d72295310 1: #!/usr/bin/env perl 2: use 5.016; 3: use ZMQx::Class; 4: use ZMQx::Class::AnyEvent; 5: use ZMQ::Constants 'ZMQ_DONTWAIT'; 6: 7: my $control = ZMQx::Class->socket('ROUTER', bind=>'tcp://*:10001'); 8: my $fan = ZMQx::Class->socket('PUSH', bind=>'tcp://*:10002'); 9: my $sink = ZMQx::Class->socket('SUB', bind=>'tcp://*:10003'); 10: my %pending;