view release on metacpan or  search on metacpan

samples/Addition.pm  view on Meta::CPAN

package Addition;

use strict;
use warnings;
use Modern::Perl "2012";

use Moose;
with 'Gearman::JobScheduler::AbstractFunction';


# Run job
sub run($;$)
{
	my ($self, $args) = @_;

	my $a = $args->{a};
	my $b = $args->{b};

	say STDERR "Going to add $a and $b";

	unless (defined $a and defined $b) {
		die "Operands 'a' and 'b' must be defined.";
	}

	return $a + $b;
}

sub priority()
{
	return GJS_JOB_PRIORITY_LOW();
}


no Moose;    # gets rid of scaffolding


# Return package name instead of 1 or otherwise worker.pl won't know the name of the package it's loading
__PACKAGE__;