I am little bit confused of all the RabbitMQ interfaces available for Perl. I'm currently using Net::RabbitFoot which has it last update back in 2011 and Net::RabbitFoot performance compared to Net::AMQP::RabbitMQ seems to be 4 times slower.
So I am trying to migrate my code to Net::AMQP::RabbitMQ which uses librammitmq underneath.
What I am currently struggling with, is how to run periodic task, since $mq->recv() is blocking. With Net::RabbitFoot I currently do something similar:
my $ae = AnyEvent->timer (
after => 5,
interval => 60,
cb => \&logStats,
my $rf = Net::RabbitFoot->new()->load_xml_spec()->connect(
host => 'localhost',
port => 5672,
user => 'guest',
pass => 'guest',
vhost => '/',
timeout => 1,
open channel and define on_consume handler
So I am wondering how can I achieve the same using Net::AMQP::RabbitMQ.