diff options
author | franck cuny <franck@lumberjaph.net> | 2010-04-14 10:38:26 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-04-14 10:38:26 +0200 |
commit | b1ac3c50b3e3dcb36609deea7bf5df33c6a972c9 (patch) | |
tree | 7067e39f42c45593d797d90ca68020c56bce80f5 /eg | |
parent | update handlers, add POD, ... (diff) | |
download | presque-b1ac3c50b3e3dcb36609deea7bf5df33c6a972c9.tar.gz |
basic worker using presque::worker
Diffstat (limited to 'eg')
-rw-r--r-- | eg/worker.pl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/eg/worker.pl b/eg/worker.pl new file mode 100644 index 0000000..fc7526c --- /dev/null +++ b/eg/worker.pl @@ -0,0 +1,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; |