gistfile1.txt

package MyBaseWorker;

extends 'TheSchwartz::Moosified::Worker'

sub work {
    my $class = shift;
    my $job = shift;
    my $subtasks = $job->{subtasks};
    for my $subtask (@$subtasks) {
        my $task = Subtask::Factory->Create($subtask);
        $task->do_work($job);
    }
    $job->completed;
}