lib/Gruntmaster/Page/Us.pm

   1 package Gruntmaster::Page::Us;
   2
   3 use 5.014000;
   4 use strict;
   5 use warnings;
   6 use parent qw/Exporter/;
   7 our @EXPORT_OK = qw/generate/;
   8 our $VERSION = '0.001';
   9
  10 use HTML::Template::Compiled;
  11 use Gruntmaster::Data qw/users user_name/;
  12 use Gruntmaster::Page::Common qw/cook_templates reload_templates/;
  13
  14 my %orig_templates = (
  15         en => <<'HTML',
  16 <ul><tmpl_loop users><li><a href="<tmpl_var id>.var"><tmpl_var name></a>
  17 </tmpl_loop></ul>
  18 HTML
  19 );
  20
  21 my %templates = cook_templates %orig_templates, us => 'Users';
  22
  23 sub generate{
  24         %templates = cook_templates %orig_templates, us => 'Users' if reload_templates;
  25         my $htc = HTML::Template::Compiled->new(scalarref => \$templates{$_[1]});
  26
  27         $htc->param(users => [ map { {id => $_, name => user_name} } users ]);
  28         $htc->output;
  29 }
  30
  31 1