From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SUKRIA / Dancer-1.1812 / lib / Dancer / Template / TemplateToolkit.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
—
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99

              
package Dancer::Template::TemplateToolkit;
use strict;
use warnings;
use Dancer::Config 'setting';
use Dancer::ModuleLoader;
use Dancer::FileUtils 'path';
use base 'Dancer::Template::Abstract';
my $_engine;
sub init {
    my ($self) = @_;
    die "Template is needed by Dancer::Template::TemplateToolkit"
      unless Dancer::ModuleLoader->load('Template');
    my $tt_config = {
        ANYCASE  => 1,
        ABSOLUTE => 1,
        %{$self->config},
    };
    my $start_tag = $self->config->{start_tag} || '<%';
    my $stop_tag =
         $self->config->{stop_tag}
      || $self->config->{end_tag}
      || '%>';
    # FIXME looks like if I set START/END tags to TT's defaults, it goes crazy
    # so I only change them if their value is different
    $tt_config->{START_TAG} = $start_tag if $start_tag ne '[%';
    $tt_config->{END_TAG}   = $stop_tag  if $stop_tag  ne '%]';
    $tt_config->{INCLUDE_PATH} = setting('views');
    $_engine = Template->new(%$tt_config);
}
sub render {
    my ($self, $template, $tokens) = @_;
    die "'$template' is not a regular file"
      if !ref($template) && (!-f $template);
    my $content = "";
    $_engine->process($template, $tokens, \$content) or die $_engine->error;
    return $content;
}
1;
__END__
=pod
=head1 NAME
Dancer::Template::TemplateToolkit - Template Toolkit wrapper for Dancer
=head1 DESCRIPTION
This class is an interface between Dancer's template engine abstraction layer
and the L<Template> module.
This template engine is recomended for production purposes, but depends on the
Template module.
In order to use this engine, use the template setting:
    template: template_toolkit
This can be done in your config.yml file or directly in your app code with the
B<set> keyword.
Note that by default,  Dancer configures the Template::Toolkit engine to use 
<% %> brackets instead of its default [% %] brackets.  This can be changed
within your config file - for example:
    template: template_toolkit
    engines:
        template_toolkit:
            start_tag: '[%'
            stop_tag: '%]'
=head1 SEE ALSO
L<Dancer>, L<Template>
=head1 AUTHOR
This module has been written by Alexis Sukrieh
=head1 LICENSE
This module is free software and is released under the same terms as Perl
itself.
=cut