Skip to content

Instantly share code, notes, and snippets.

@masartz

masartz/MyApp::Worker::Santa

Created December 12, 2009 15:22
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save masartz/254928 to your computer and use it in GitHub Desktop.
Save masartz/254928 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
MyApp::Worker::Santa
package MyApp::Worker::Santa;
use strict;
use warnings;
use base qw/Qudo::Worker/;
sub work {
my ($self , $job ) = @_;
$job->manager->plugin->{pre_message}->();
my $child = $job->arg();
print "Hello , $child->{name}. I give you present which you hoped.It is $child->{present}.\n\n";
$job->completed();
}
1;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment