Create module

Author: Stefan Geneshky

dist.ini

@@ -0,0 +1,11 @@
+name  = Kelp-Module-Template-Toolkit
+abstract = Template rendering for Kelp via Template
+
+[@Basic]
+[AutoPrereqs]
+[VersionFromModule]
+
+[PodSyntaxTests]
+
+[GithubMeta]
+[Git::ExcludeUntracked]

lib/Kelp/Module/Template/Toolkit.pm

@@ -0,0 +1,83 @@
+package Kelp::Module::Template::Toolkit;
+use Kelp::Base 'Kelp::Module::Template';
+use Template;
+
+our $VERSION = 0.01;
+
+attr ext => 'tt';
+
+sub build_engine {
+    my ( $self, %args ) = @_;
+    return Template->new( \%args );
+}
+
+sub render {
+    my ( $self, $template, $vars, @rest ) = @_;
+    my $output;
+    $self->engine->process( $template, $vars, \$output, @rest );
+    return $output;
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Kelp::Module::Template::Toolkit - Template::Toolkit processing for Kelp applications
+
+=head1 SYNOPSIS
+
+First ...
+
+    # conf/config.pl
+    {
+        modules => ['Template::Toolkit'],
+        modules_init => {
+            'Template::Toolkit' => { ... }
+        }
+    };
+
+Then ...
+
+    # lib/MyApp.pm
+    sub some_route {
+        my $self = shift;
+        $self->template('some_template', { bar => 'foo' });
+    }
+
+=head1 DESCRIPTION
+
+This module provides an interface for using L<Template> inside a Kelp web application.
+
+=head1 REGISTERED METHODS
+
+=head2 template
+
+C<template($filename, \%vars)>
+
+Renders a file using the currently loaded template engine.
+
+=head1 PERKS
+
+=head2 UTF8
+
+L<Template> is sometimes unable to detect the correct encoding, so to ensure
+proper rendering, you may want to add C<ENCODING> to its configuration:
+
+    # conf/config.pl
+    {
+        modules      => ['Template::Toolkit'],
+        modules_init => {
+            'Template::Toolkit' => {
+                ENCODING => 'utf8'
+            }
+        }
+    };
+
+
+=back
+
+=cut

t/config.pl

@@ -0,0 +1,8 @@
+{
+    modules      => ['Template::Toolkit'],
+    modules_init => {
+        'Template::Toolkit' => {
+            ENCODING => 'utf8'
+        }
+    }
+};

t/main.t

@@ -0,0 +1,14 @@
+use Kelp::Base -strict;
+use Test::More;
+use Kelp;
+
+my $app = Kelp->new;
+my $tmpl = '[% IF !bar %]foo[% ELSE %]bar[% END %]';
+
+can_ok $app, $_ for qw/template/;
+like $app->template( \$tmpl, { bar => 1 } ), qr/bar/;
+unlike $app->template( \$tmpl, { bar => 1 } ), qr/foo/;
+like $app->template( \$tmpl, { bar => 0 } ), qr/foo/;
+unlike $app->template( \$tmpl, { bar => 0 } ), qr/bar/;
+
+done_testing;