File Coverage

blib/lib/App/TemplateServer/Provider/HTML/Template.pm

Criterion	Covered	Total	%
statement	10	23	43.4
branch	0	8	0.0
condition			n/a
subroutine	4	5	80.0
pod			n/a
total	14	36	38.8

package App::TemplateServer::Provider::HTML::Template;
use Moose;
use HTML::Template;
use Method::Signatures;

our $VERSION = '0.01';

with 'App::TemplateServer::Provider::Filesystem';

method render_template($template_file, $context){
    my $template = HTML::Template->new(
        path     => scalar $self->docroot,
        filename => $template_file,
    );

    my %data = %{$context->data||{}};
    for my $var (keys %data){
        my $value = $data{$var};
        $template->param($var => $value);
    }

    return $template->output;
};

1;

__END__

=head1

App::TemplateServer::Provider::HTML::Template - serve HTML::Template templates with App::TemplateServer

=head1 SYNOPSIS

Use HTML::Template templates with L<App::TemplateServer|App::TemplateServer>.

   template-server --provider HTML::Template --docroot /your/templates

See L<template-server> and L<App::TemplateServer> for details.

=head1 AUTHOR AND COPYRIGHT

Jonathan Rockway C<< <[e-mail]> >>

This module is Free software, you may redistribute it under the same
terms as Perl itself.