package # hide from cpan
    Test::Worker;

use strict;

sub perform {
    my $job = shift;

    $job->worker->log( $job->class . ' is processing a job' );
    sleep $job->args->[1] if $job->args->[1];
    $job->worker->log( $job->class . ' finished job' );
    $job->args->[0];
}

1;