our @EXPORT_OK = qw/generate/;
our $VERSION = '0.001';
-use constant FORMATS => [qw/CPP/];
-use constant TITLE => 'Learn Perl';
+use constant TITLE => 'Learn';
-use Fcntl qw/:flock/;
use HTML::Template::Compiled;
-use IO::File;
-use YAML::Any qw/LoadFile/;
use Gruntmaster::Page::Common qw/header footer/;
my %templates = (
en => <<'HTML',
-Download interactive-perl-tutorial for <a href="ipt-linux">Linux</a> | <a href="ipt-windows.exe">Windows</a> | <a href="ipt-mac">Mac OS X</a>.
-<p>Get the source from <a href="http://example.org/">meta::cpan</a>
+Install interactive-perl-tutorial from your nearest CPAN mirror. Run <code>cpan App::InteractivePerlTutorial</code>.
+<p>You can also get the source from <a href="http://git.ieval.ro/?p=app-interactiveperltutorial.git">git.ieval.ro</a>
HTML
);
$templates{$_} .= footer $_ for keys %templates;
sub generate{
- my $template = $templates{$_[1]};
- my $htc = HTML::Template::Compiled->new(scalarref => \$template);
- $htc->output
+ HTML::Template::Compiled->new(scalarref => \$templates{$_[1]})->output;
}
1