Superclass for defining task behavior
package MyWorker; use base qw( TheSchwartz::Worker ); sub work { my $class = shift; my TheSchwartz::Job $job = shift; print "Workin' hard or hardly workin'? Hyuk!!\n"; $job->completed(); } package main; my $client = TheSchwartz->new( databases => $DATABASE_INFO ); $client->can_do('MyWorker'); $client->work();
TheSchwartz::Worker objects are the salt of the reliable job queuing earth. The behavior required to perform posted jobs are defined in subclasses of TheSchwartz::Worker. These subclasses are named for the ability required of a \*(C`TheSchwartz\*(C' client to do the job, so that the clients can dispatch automatically to the approprate worker routine.
Because jobs can be performed by any machine running code for capable worker classes, \*(C`TheSchwartz::Worker\*(C's are generally stateless. All mutable state is stored in the \*(C`TheSchwartz::Job\*(C' objects. This means all \*(C`TheSchwartz::Worker\*(C' methods are class methods, and \*(C`TheSchwartz::Worker\*(C' classes are generally never instantiated.
Define and customize how a job is performed by overriding these methods in your subclass: Performs the job that required ability $class. Override this method to define how to do the job you're defining.
Note that will need to call \*(C`$job->completed()\*(C' or \*(C`$job->failed()\*(C' as appropriate to indicate success or failure. See TheSchwartz::Job. Returns the number of times workers should attempt the given job. After this many tries, the job is marked as completed with errors (that is, a \*(C`TheSchwartz::ExitStatus\*(C' is recorded for it) and removed from the queue. By default, returns 0. Returns the number of seconds after a failure workers should wait until reattempting a job that has already failed $num_failures times. By default, returns 0. Returns the number of seconds to allow a \*(C`TheSchwartz::ExitStatus\*(C' record for a job performed by this worker class to exist. By default, returns 0. Returns the number of seconds workers of this class will claim a grabbed a job. That is, returns the length of the timeout after which other workers will decide a worker that claimed a job has crashed or faulted without marking the job failed. Jobs that are marked as failed by a worker are also marked for immediate retry after a delay indicated by \*(C`retry_delay()\*(C'.
Finds and claims a job for workers with ability $class, using \*(C`TheSchwartz\*(C' client $client. This job can then be passed to \*(C`work()\*(C' or \*(C`work_safely()\*(C' to perform it. Performs the job associated with the worker's class name. If an error is thrown while doing the job, the job is appropriately marked as failed, unlike when calling \*(C`work()\*(C' directly.