Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
17 lines (13 sloc) 325 Bytes
package Test::Mankiw::Worker::TheSchwartz;
use strict;
use warnings;
use parent qw(Mankiw::TheSchwartz::Worker::Base);
sub work {
my ($class, $job) = @_;
open my $fh, '>' . $job->arg->{tmpfile};
print $fh $job->arg->{result};
close $fh;
kill 'USR1', $job->arg->{owner_pid};
$job->completed;
}
!!1;
You can’t perform that action at this time.