AnyEvent-Beanstalk-Worker
view release on metacpan or search on metacpan
eg/web-state.pl view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use lib 'eg';
use WebWorker;
my $w = WebWorker->new
( concurrency => 1, ## crank this up to 10000 for some real action
max_stop_tries => 1,
initial_state => 'fetch',
beanstalk_watch => "urls" );
$w->beanstalk->use("urls")->recv;
( run in 0.268 second using v1.01-cache-2.11-cpan-87723dcf8b7 )