s4553711
1/17/2013 - 5:17 AM

TheSchwartz Worker example

#!/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;