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

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

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

SUBSCRIBE 'genpage', \&_generate;
WAIT_FOR_MESSAGES 86400 while 1;

1;
__END__
Commit	Line	Data
	1	#!/usr/bin/perl -w
	2	use v5.14;
	3
	4	use Gruntmaster::Data qw/SUBSCRIBE WAIT_FOR_MESSAGES/;
	5	use Gruntmaster::Page qw/_generate/;
	6
	7	SUBSCRIBE 'genpage', \&_generate;
	8	WAIT_FOR_MESSAGES 86400 while 1;
	9
	10	1;
	11	__END__