lib/Gruntmaster/Page/Learn.pm

   1 package Gruntmaster::Page::Learn;
   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 => 'Learn';
  11
  12 use HTML::Template::Compiled;
  13 use Gruntmaster::Page::Common qw/header footer/;
  14
  15 my %templates = (
  16   en => <<'HTML',
  17 Install interactive-perl-tutorial from your nearest CPAN mirror. Run <code>cpan App::InteractivePerlTutorial</code>.
  18 <p>You can also get the source from <a href="http://git.ieval.ro/?p=app-interactiveperltutorial.git">git.ieval.ro</a>
  19 HTML
  20 );
  21
  22 $templates{$_}  = header($_, TITLE) . $templates{$_} for keys %templates;
  23 $templates{$_} .= footer $_ for keys %templates;
  24
  25 sub generate{
  26   HTML::Template::Compiled->new(scalarref => \$templates{$_[1]})->output;
  27 }
  28
  29 1