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.