blob: 1c22bbf0ef13d6fd112bdc18f083990f056f3aae (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
use strict;
use warnings;
use 5.012;
package simple::worker;
use Moose;
extends 'presque::worker';
sub work {
my ($self, $job) = @_;
say "job's done";
...; # yadda yadda!
return;
}
package main;
use AnyEvent;
my $worker = simple::worker->new(base_uri => 'http://localhost:5002', queue => 'baz2');
AnyEvent->condvar->recv;
|