3 use base qw(Gearman::Driver::Worker);
7 use Data::Dump qw(dump);
14 my ( $self, $orig, $job_name ) = @_;
15 warn "# process_name $orig $job_name\n";
16 return "$orig ($job_name)";
21 sub ping : Job : MinProcesses(1) : MaxProcesses(5) {
22 my ( $self, $job, $workload ) = @_;
23 warn "# ping $job $workload\n";
25 return "pong [$workload] $$ $nr";
28 sub inc_foo : Job : MinProcesses(1) : MaxProcesses(5) : Encode : Decode {
29 my ( $self, $job, $workload ) = @_;
30 warn "# inc_foo $job ", dump($workload);
36 my ( $self, $result ) = @_;
37 return JSON::XS::encode_json($result);
41 my ( $self, $workload ) = @_;
42 return JSON::XS::decode_json($workload);