NAME Gearman::Glutch - gearman casual SYNOPSIS use Gearman::Glutch; my $worker = Gearman::Glutch->new( port => 9999, max_workers => 5, max_reqs_per_child => 5, on_spawn_child => sub { warn "Spawned $_[0]"; }, on_complete => sub { warn "Complete job $$"; }, ); $worker->register_function("echo", sub { my $job = shift; $$.":".$job->arg; }); $worker->run(); DESCRIPTION Gearman::Glutch is all in one gearman server management library for casual use. Glutch spawns Gearman::Server and Gearman::Worker automatically. METHODS my $glutch = Gearman::Glutch->new(%args) Create new instance of Gearman::Glutch. You can pass the following arguments. port Port number for gearman server. max_workers(Default: 1) number of worker processes max_reqs_per_child max. number of requests to be handled before a worker process exits on_spawn_child Callback function. This will call on spawned worker process. on_complete Callback function. This will call on completed one job. $glutch->register_function($name, $code) $glutch->register_function($name, $time, $code) $glutch->register_function("echo", sub { my $job = shift; # $job is instance of Gearman::Job $$.":".$job->arg; }); Register function to the worker processes. $glutch->run() Spawn the child processes and go to main loop. AUTHOR Tokuhiro Matsuno SEE ALSO LICENSE Copyright (C) Tokuhiro Matsuno This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.