diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-11-26 15:38:36 +0100 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-11-26 15:38:36 +0100 |
| commit | 5cddeb8df3ce1e4768db81c9faba50ea2bcdec54 (patch) | |
| tree | a9a33586e8c471066ce2ba5ec0b75e3be0f8fde0 /eg/simple.pl | |
| parent | use payload (diff) | |
| download | presque-worker-5cddeb8df3ce1e4768db81c9faba50ea2bcdec54.tar.gz | |
update sample
Diffstat (limited to 'eg/simple.pl')
| -rw-r--r-- | eg/simple.pl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/eg/simple.pl b/eg/simple.pl index 6f921d6..0ed90e3 100644 --- a/eg/simple.pl +++ b/eg/simple.pl @@ -1,3 +1,4 @@ + #!/usr/bin/env perl use strict; use warnings; @@ -14,10 +15,13 @@ sub work { } package main; + my $w = myworker->new( - base_uri => 'http://localhost:5000', - queue_name => 'foo', - fork_dispatcher => 1, + base_uri => 'http://localhost:5000', + queue_name => 'foo', + fork_dispatcher => 1, + spore_description => shift, + context => { presque => { url => 'http://localhost:5000' } } ); $w->start; |