File Coverage

blib/lib/Dancer2/Template/HTCompiled.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	6	6	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	49	49	100.0

package Dancer2::Template::HTCompiled;
use strict;
use warnings;

use Moo;
use Carp qw/ croak /;
use HTML::Template::Compiled;

with 'Dancer2::Core::Role::Template';

has '+default_tmpl_ext' => (
    default => sub { 'html' }
);
has '+engine' => (
    isa => sub {
        $_[0] eq "HTML::Template::Compiled"
    },
);

sub _build_engine {
    'HTML::Template::Compiled'
}
#    my ($self) = @_;
#
#    my %config = %{ $self->config };
#
#    # Dancer2 inject a couple options without asking; Text::Xslate protests:
#    delete $config{environment};
#    if ( my $location = delete $config{location} ) {
#        $config{path} //= [$location];
#    }
#
#    return Text::Xslate->new(%config);
#}

sub render {
    my ($self, $tmpl, $vars) = @_;

    my %config = %{ $self->config };
    my $env = delete $config{environment};
    my $location = delete $config{location};
    my $path = delete $config{path};
    $path = "$location/$path" if defined $location;
    $config{path} = $path;
    my $htc = $self->engine;
    my $content = eval {
        my $t;
        if ( ref($tmpl) eq 'SCALAR' ) {
            $t = $htc->new_scalar_ref($tmpl, %config);
        }
        else {
            $t = $htc->new_file($tmpl, %config);
        }
        $t->param($vars);
        $t->output;
    };

    if (my $error = $@) {
        croak $error;
    }

    return $content;
}

1;

__END__