#!/usr/bin/perl package PJProcess; use base qw( TheSchwartz::Worker TheSchwartz::Job ); sub work { my $class = shift; my TheSchwartz::Job $job = shift; ... $job->completed(); } 1;