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 constant TITLE => 'Gruntmaster 6000';
  11
  12 use HTML::Template::Compiled;
  13 use Gruntmaster::Page::Common qw/header footer/;
  14
  15 my %templates = (
  16   en => <<'HTML',
  17 HTML
  18 );
  19
  20 $templates{$_}  = header($_, TITLE) . $templates{$_} for keys %templates;
  21 $templates{$_} .= footer $_ for keys %templates;
  22
  23 sub generate{
  24   HTML::Template::Compiled->new(scalarref => \$templates{$_[1]})->output
  25 }
  26
  27 1