[gruntmaster-page.git] / lib / Gruntmaster / Page / Index.pm

package Gruntmaster::Page::Index;

use 5.014000;
use strict;
use warnings;
use parent qw/Exporter/;
our @EXPORT_OK = qw/generate/;
our $VERSION = '0.001';

use constant TITLE => 'Gruntmaster 6000';

use HTML::Template::Compiled;
use Gruntmaster::Page::Common qw/header footer/;

my %templates = (
  en => <<'HTML',
HTML
);

$templates{$_}  = header($_, TITLE) . $templates{$_} for keys %templates;
$templates{$_} .= footer $_ for keys %templates;

sub generate{
  HTML::Template::Compiled->new(scalarref => \$templates{$_[1]})->output
}

1
Commit	Line	Data
42546e6c MG	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
42546e6c	12	use HTML::Template::Compiled;
832cb45e	13	use Gruntmaster::Page::Common qw/header footer/;
42546e6c MG	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{
cd9af27e	24	HTML::Template::Compiled->new(scalarref => \$templates{$_[1]})->output
42546e6c MG	25	}
	26
	27	1