如何将 undef 作为参数从 TT 模板传递给对象方法？

Question

Template-Toolkit 似乎总是希望将 undef 插入空字符串。因此，像这样的模板：

Result is [% some_object.some_method (1, undef, 2) %]

或这样：

Result is [% ttvar %]
          [% some_object.some_method (1, ttvar, 2) %]

生成对 Perl 的调用，例如：

some_object->some_method (1, '', 2)

当我想要的是：

some_object->some_method (1, undef, 2)

有没有办法传递 undef 而不是空字符串？

Answer 1

我添加了另一个答案来展示 EVAL_PERL 如何在 TT 中工作的示例：

use Template;
use DateTime;

my $tt = Template->new( EVAL_PERL => 1 );

my $vars = { foo => 'DateTime', bar => DateTime->now, p => 'print' };

my $file = q{
    [% SET hello = 'Hello world' %]
    [% PERL %]
    print "[% hello %]\n";
    print [% foo %]->now, "\n";
    [% p %] $stash->get( 'bar' )->ymd;
    [% END %]
};

$tt->process( \$file, $vars );

上面的输出如下：

Hello world
2009-11-03T15:31:50
2009-11-03

因为 TT 充当预处理器并生成以下要解释的 Perl 代码：

print "hello world\n";
print DateTime->now, "\n";
print $stash->get( 'bar' )->ymd;

注意。上面一行中的 $stash 由 TT 提供，是对顶级存储对象的引用。

/I3az/

Answer 2

使用[% PERL %]怎么样？

[% PERL %]
[% my_perl_code %]
[% END %]

Answer 3

这是 Template Toolkit 的设计决策。 Perl 模板工具包“Badger book” 第 50 页：

如果模板工具包遇到未定义值的变量，它不会抱怨。相反，它会悄悄地使用一个空字符串（即什么都没有）作为变量的值，并继续处理模板的提醒。

然而，您可以做的是使用 DEBUG 选项让 TT 在看到 undef 时提供警告。请参阅SO问题Perl的模板工具包可以对未定义的值发出警告吗？ 了解更多信息。

/I3az/