package # hide from PAUSE
Live::NS1::Spread;
use Moose;
use TestLib;
has 'gc' => ( is => 'ro' );
sub BUILD {
my ($self) = @_;
my ( $host, $port ) = split /:/, $self->server;
my $test = TestLib->new();
$self->{gc} = $test->gearman_client( $host, $port );
}
sub main : Job {
my ( $self, $job, $workload ) = @_;
my $result = '';
for ( 1 .. 5 ) {
my $res = $self->gc->do_task( "Live::NS1::Spread::some_job_$_" => '' );
$result .= $$res;
}
return $result;
}
sub some_job_1 : Job {
return 1;
}
sub some_job_2 : Job {
return 2;
}
sub some_job_3 : Job {
return 3;
}
sub some_job_4 : Job {
return 4;
}
sub some_job_5 : Job {
return 5;
}
1;