[plack-app-gruntmaster.git] / gruntmaster-paged

#!/usr/bin/perl -w
use v5.14;

use Gruntmaster::Data qw/SUBSCRIBE WAIT_FOR_MESSAGES/;
use Gruntmaster::Page;

SUBSCRIBE 'genpage', \&Gruntmaster::Page::generate;
SUBSCRIBE 'gensrc', \&Gruntmaster::Page::gensrc;
SUBSCRIBE 'genarticle', \&Gruntmaster::Page::generate;
WAIT_FOR_MESSAGES 86400 while 1;

1;
__END__
Commit	Line	Data
22642746 MG	1	#!/usr/bin/perl -w
	2	use v5.14;
	3
	4	use Gruntmaster::Data qw/SUBSCRIBE WAIT_FOR_MESSAGES/;
70aec811	5	use Gruntmaster::Page;
22642746	6
70aec811	7	SUBSCRIBE 'genpage', \&Gruntmaster::Page::generate;
e57ca30a	8	SUBSCRIBE 'gensrc', \&Gruntmaster::Page::gensrc;
eafc7f54	9	SUBSCRIBE 'genarticle', \&Gruntmaster::Page::generate;
22642746 MG	10	WAIT_FOR_MESSAGES 86400 while 1;
	11
	12	1;
	13	__END__