X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage.pm;h=12e732958878d9fd6a7fc855b97194ec7b5816e0;hb=832cb45e325364ca1de645a2256efa69284fcf06;hp=d014ac18fa8064ca71d15db4c24edc3e356e6d11;hpb=27eae7c3dd4e0ef13f881fe6a2a2458fb1d21346;p=gruntmaster-page.git diff --git a/lib/Gruntmaster/Page.pm b/lib/Gruntmaster/Page.pm index d014ac1..12e7329 100644 --- a/lib/Gruntmaster/Page.pm +++ b/lib/Gruntmaster/Page.pm @@ -4,7 +4,7 @@ use 5.014000; use strict; use warnings; use parent qw/Exporter/; -our @EXPORT_OK = qw/generate header footer/; +our @EXPORT_OK = qw/generate/; use File::Basename qw/fileparse/; use File::Slurp qw/write_file/; @@ -19,44 +19,6 @@ use constant CONTENT_TYPES => { txt => 'text/plain; charset=UTF-8', }; -my %header_templates = ( - en => <<'HTML', - -TITLE_GOES_HERE - - - - - - -
iEval
-
TITLE_GOES_HERE
- - - -HTML -); - -my %footer_templates = ( - en => <<'HTML', - - -HTML -); - -sub header{ - my ($language, $title) = @_; - $header_templates{$language} =~ s/TITLE_GOES_HERE/$title/ger; -} - -sub footer{ - $footer_templates{$_[0]}; -} - sub declaregen{ my ($generator, $regex) = @_; $generator = "Gruntmaster::Page::$generator";