package # hide from PAUSE
Gearman::Driver::Test::Live::NS1::BeginEnd;
use Moose;
use File::Temp qw(tempfile);
has 'filename' => ( is => 'ro' );
has 'fh' => ( is => 'ro' );
sub begin {
my ( $self, $job, $workload ) = @_;
my ( $fh, $filename ) = tempfile( CLEANUP => 0 );
print $fh "begin $workload\n";
$self->{fh} = $fh;
$self->{filename} = $filename;
}
sub job : Job {
my ( $self, $job, $workload ) = @_;
my $fh = $self->{fh};
print $fh "job $workload\n";
return $self->{filename};
}
sub end {
my ( $self, $job, $workload ) = @_;
my $fh = $self->{fh};
print $fh "end $workload\n";
close $fh;
}
1;