perl – 如何配置Dancer2和Template Toolkit以使用不同的Stash模

如果您查看代码或D2::T::TT,您可以看到它创建并返回方法_build_engine中的$tt对象.如果将它包装在子类中,可以抓取它并进行更改.

package Dancer2::Template::TemplateToolkit::AutoEscaping;

use Moo;
use Template::Stash::AutoEscaping;

extends 'Dancer2::Template::TemplateToolkit';

around '_build_engine' => sub {
    my $orig = shift;
    my $self = shift;

    my $tt = $self->$orig(@_);

    # replace the stash object
    $tt->service->context->{STASH} = Template::Stash::AutoEscaping->new;

    return $tt;
};

1;

这是一个丑陋的黑客攻击并且在类的内部进行翻译从来都不是一个好主意,但是Template::Context没有提供更改存储对象的方法. – > stash方法只是一个读者,它只能在运行时设置.

然后,您可以在配置文件中使用新的子类而不是template_toolkit.

engines:
  template:
    TemplateToolkit::AutoEscaping:
      start_tag: '<%'
      end_tag:   '%>'

请注意,这将使您放弃在配置文件中为STASH添加的任何配置.您必须在包装器中明确地获取配置,如果存在则过滤掉STASH并将其传递给新的.我将把它作为读者的练习.