在perl Mason框架中定义全局变量

Question

我最近遇到了一个问题:如何在perl Mason Framework中定义全局变量？我需要定义一个变量并为其赋值，该值将在所有Mason组件中可见，但我所有的尝试都碰巧失败了，因为组件告诉它们看不到该变量。

提前谢谢。

Answer 1

您需要在Apache配置中或在构建Mason解释器对象时在allow_globals参数中声明全局变量。

使用Mason解释器对象时的示例：

my $interp = HTML::Mason::Interp->new(
    ...,
    allow_globals => [
        '$global',
    ],
);

Apache配置示例：

PerlAddVar MasonAllowGlobals $global