在perl Mason Framework中定义全局变量

Question

我最近遇到了一个问题：如何在perl Mason Framework中定义一个全局变量？我需要定义一个变量并为其分配一个值，它将从所有Mason组件中可见，但我的所有尝试都是不成功的，因为组件告诉他们没有看到变量。

提前致谢。

Answer 1

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

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

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

Apache配置示例：

PerlAddVar MasonAllowGlobals $global