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 <tokuhirom AAJKLFJEF@ GMAIL COM>
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.