File Coverage

blib/lib/Gearman/Spawner.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition	3	9	33.3
subroutine	8	8	100.0
pod	1	2	50.0
total	38	45	84.4

package Gearman::Spawner;

use strict;
use warnings;

use 5.10.0;

our $VERSION = '1.11';

use Carp qw( croak );
use Gearman::Spawner::Supervisor;

sub new {
    my $this = shift;
    my $class = ref $this || $this;

    my %params = @_;

    $params{servers} // croak "need servers";
    $params{workers} // croak "need workers";

    my $pid = Gearman::Spawner::Supervisor->start(%params);

    return bless {
        pid => $pid,
    }, $class;
}

sub pid {
    my $self = shift;
    return $self->{pid};
}

sub DESTROY {
    my $self = shift;
    kill 'INT', $self->{pid};
}

1;

__END__