]>
iEval git - gruntmaster-page.git/blob - lib/Gruntmaster/Page/Us.pm
2c87916aa7075f99ec4c4596f1edd9861ef457ac
1 package Gruntmaster
::Page
::Us
;
6 use parent qw
/Exporter/;
7 our @EXPORT_OK = qw
/generate/;
8 our $VERSION = '0.001';
10 use HTML
::Template
::Compiled
;
11 use Gruntmaster
::Data qw
/users user_name/;
12 use Gruntmaster
::Page
::Common qw
/cook_templates reload_templates/;
14 my %orig_templates = (
16 <ul><tmpl_loop users><li><a href="<tmpl_var id>.var"><tmpl_var name></a>
21 my %templates = cook_templates
%orig_templates, us
=> 'Users';
24 %templates = cook_templates
%orig_templates, us
=> 'Users' if reload_templates
;
25 my $htc = HTML
::Template
::Compiled
->new(scalarref
=> \
$templates{$_[1]});
27 $htc->param(users
=> [ map { {id
=> $_, name
=> user_name
} } users
]);
This page took 0.042824 seconds and 4 git commands to generate.