Pass PSGI env to generators

[gruntmaster-page.git] / lib / Gruntmaster / Page / Us / Entry.pm

package Gruntmaster::Page::Us::Entry;

use 5.014000;
use strict;
use warnings;
use Gruntmaster::Page::Base us_entry => '<tmpl_var name>';
our @ISA = qw/Gruntmaster::Page::Base/;
our $VERSION = '0.001';

use constant TEMPLATES => {
	en => <<'HTML',
<h1><tmpl_var name></h1>
Town: <tmpl_var town><br>
University: <tmpl_var university><br>
Level: <tmpl_var level>
HTML
};

sub _generate{
	my ($self, $htc, $lang, $env, $us) = @_;
	debug $env => "language is '$lang', user is '$us'";
	local $_ = $us;

	$htc->param(name => user_name);
	$htc->param(town => user_town);
	$htc->param(university => user_university);
	$htc->param(level => user_level);
}

1