/usr/share/perl5/Dancer2/Template/TemplateToolkit.pm is in libdancer2-perl 0.152000+dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 100 101 102 103 104 105 106 107 108 | # ABSTRACT: Template toolkit engine for Dancer2
package Dancer2::Template::TemplateToolkit;
$Dancer2::Template::TemplateToolkit::VERSION = '0.152000';
use strict;
use warnings;
use Carp qw/croak/;
use Moo;
use Dancer2::Core::Types;
use Template;
with 'Dancer2::Core::Role::Template';
has '+engine' => ( isa => InstanceOf ['Template'], );
sub _build_engine {
my $self = shift;
my $charset = $self->charset;
my %tt_config = (
ANYCASE => 1,
ABSOLUTE => 1,
length($charset) ? ( ENCODING => $charset ) : (),
%{ $self->config },
);
my $start_tag = $self->config->{'start_tag'};
my $stop_tag = $self->config->{'stop_tag'} || $self->config->{end_tag};
$tt_config{'START_TAG'} = $start_tag
if defined $start_tag && $start_tag ne '[%';
$tt_config{'END_TAG'} = $stop_tag
if defined $stop_tag && $stop_tag ne '%]';
$tt_config{'INCLUDE_PATH'} ||= $self->views;
return Template->new(%tt_config);
}
sub render {
my ( $self, $template, $tokens ) = @_;
( ref $template || -f $template )
or croak "$template is not a regular file or reference";
my $content = "";
my $charset = $self->charset;
my @options = length($charset) ? ( binmode => ":encoding($charset)" ) : ();
$self->engine->process( $template, $tokens, \$content, @options )
or croak $self->engine->error;
return $content;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Dancer2::Template::TemplateToolkit - Template toolkit engine for Dancer2
=head1 VERSION
version 0.152000
=head1 SYNOPSIS
To use this engine, you may configure L<Dancer2> via C<config.yaml>:
template: "template_toolkit"
Or you may also change the rendering engine on a per-route basis by
setting it manually with C<set>:
# code code code
set template => 'template_toolkit';
=head1 DESCRIPTION
This template engine allows you to use L<Template::Toolkit> in L<Dancer2>.
=head1 METHODS
=head2 render($template, \%tokens)
Renders the template. The first arg is a filename for the template file
or a reference to a string that contains the template. The second arg
is a hashref for the tokens that you wish to pass to
L<Template::Toolkit> for rendering.
=head1 SEE ALSO
L<Dancer2>, L<Dancer2::Core::Role::Template>, L<Template::Toolkit>.
=head1 AUTHOR
Dancer Core Developers
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Alexis Sukrieh.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|