lib/Gruntmaster/Page/Us/Entry.pm

   1 package Gruntmaster::Page::Us::Entry;
   2
   3 use 5.014000;
   4 use strict;
   5 use warnings;
   6 use Gruntmaster::Page::Base us_entry => '<tmpl_var name>';
   7 our @ISA = qw/Gruntmaster::Page::Base/;
   8 our $VERSION = '0.001';
   9
  10 use constant TEMPLATES => {
  11         en => <<'HTML',
  12 <h1><tmpl_var name></h1>
  13 Town: <tmpl_var town><br>
  14 University: <tmpl_var university><br>
  15 Level: <tmpl_var level>
  16 HTML
  17 };
  18
  19 sub _generate{
  20         my ($self, $htc, $lang, $logger, $us) = @_;
  21         debug $logger => "language is '$lang', user is '$us'";
  22         local $_ = $us;
  23
  24         $htc->param(name => user_name);
  25         $htc->param(town => user_town);
  26         $htc->param(university => user_university);
  27         $htc->param(level => user_level);
  28 }
  29
  30 1