lib/Gruntmaster/Page/Index.pm

   1 package Gruntmaster::Page::Index;
   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::Page::Common qw/cook_templates reload_templates/;
  12
  13 my %orig_templates = (
  14   en => <<'HTML',
  15 HTML
  16 );
  17
  18 my %templates = cook_templates %orig_templates, index => 'Gruntmaster 6000';
  19
  20 sub generate{
  21   %templates = cook_templates %orig_templates, index => 'Gruntmaster 6000' if reload_templates;
  22   HTML::Template::Compiled->new(scalarref => \$templates{$_[1]})->output
  23 }
  24
  25 1