view release on metacpan or  search on metacpan

t/gearman.t  view on Meta::CPAN

sub _worker_process($)
{
    my $function_name = shift;

    my $command = "perl ./script/gjs_worker.pl t/lib/${function_name}.pm";
    my $opts  = { 'die_upon_destroy' => 1 };

    my $proc = Proc::Background->new( $opts, $command );
    sleep( 1 );

    unless( $proc->alive ) {
        $proc = undef;
        die "Process '$command' failed to start.";
    }

    return $proc;
}


sub test_run_locally()
{