在没有插件的情况下调用模板工具包中的外部子程序和模块？

Question

我试图在 Template Toolkit .tt 文件中调用外部 Perl 模块。 我想使用的模块是Util，我想调用Util::prettify_date。 我能够使用 Template Toolkit 的插件接口包含此模块：我设置了加载、新建和错误函数（如下所述：http://template-toolkit.org/docs/modules/Template/Plugin.html)，并使用 [% USE Util %].

这工作正常，但我想知道是否有一种方法可以在 Template Toolkit 中使用 Perl 模块，而无需对它们进行插件化。 制作插件的主要问题是我必须使 Util 中的所有函数都面向对象（即接受 $self 作为第一个参数），这实际上没有意义。

Answer 1

您还可以将函数（即子例程）传递给模板，如下所示：

use strict;
use warnings;
use List::Util ();
use Template;

my $tt = Template->new({
    INCLUDE_PATH  => '.',
});

$tt->process( 'not_plugin.tt', { 
    divider    => sub { '='  x  $_[0]         },
    capitalize => sub { ucfirst $_[0]         },
    sum        => sub { List::Util::sum( @_ ) },
});

not_plugin.tt

[% divider( 40 ) %]
Hello my name is [% capitalize( 'barry' ) %], how are u today?
The ultimate answer to life is [% sum( 10, 30, 2 ) %]
[% divider( 40 ) %]

将产生这个：

========================================
Hello my name is Barry, how are u today?
The ultimate answer to life is 42
========================================

Answer 2

您是否尝试过在 < 中使用该模块code>[% PERL %] 块？

现在，我个人会编写一个插件，在摆脱第一个后将 MyOrg::Plugin::Util->prettify_date 中继到 Util::prettify_date争论。 您也可以自动创建这些方法：

my @to_proxy = qw( prettify_date );

sub new {
    my $class = shift;

    {
        no strict 'refs';
        for my $sub ( @to_proxy) {
            *{"${class}::${sub}"} = sub {
                my $self = shift;
                return "My::Util::$sub"->( @_ );
            }
        }
    }
    bless {} => $class;
}

Answer 3

实现此目的的最简单、最危险的方法是使用 [% PERL %] 块并强制在 main 命名空间中进行计算。

[% PERL %]
package main;
# You can now use any variables and subroutines as though this were in the main namespace
[% END %]

这是必要的，因为 [% PERL %] 块是 在隔离的 Template::Perl 包命名空间中进行评估，您将使用 package main 覆盖该命名空间。

危险来自于您的模板能够