eg/worker.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

use strict;
use warnings;
use 5.012;

package simple::worker;
use Moose;
extends 'presque::worker';

sub work {
    my ($self, $job) = @_;
    say "job's done";
    return;
}

package main;
use AnyEvent;

my $worker = simple::worker->new(base_uri => 'http://localhost:5002', queue => 'baz2');

AnyEvent->condvar->recv;