package
Gearman::Driver::Test::Live::BeginEnd;
sub
begin {
my
(
$self
,
$job
,
$workload
) =
@_
;
open
my
$fh
,
">>$workload"
or
die
"cannot open file $workload: $!"
;
print
$fh
"begin ...\n"
;
close
$fh
;
}
sub
job1 : Job : ProcessGroup(group1) {
my
(
$self
,
$job
,
$workload
) =
@_
;
open
my
$fh
,
">>$workload"
or
die
"cannot open file $workload: $!"
;
print
$fh
"job1 ...\n"
;
close
$fh
;
}
sub
job2 : Job : ProcessGroup(group1) {
my
(
$self
,
$job
,
$workload
) =
@_
;
die
;
}
sub
end {
my
(
$self
,
$job
,
$workload
) =
@_
;
open
my
$fh
,
">>$workload"
or
die
"cannot open file $workload: $!"
;
print
$fh
"end ...\n"
;
close
$fh
;
}
1;