如何检测 Perl 中的 Web 脚本是否使用 ModPerl::Registry （mod_perl 处理程序）运行？

Question

是否可以检测在 mod_perl 下运行的 Web 应用程序是否使用 ModPerl::注册表？

我想编写在 ModPerl::Registry （或类似的处理程序）下运行的脚本，但也可以充当 mod_perl 响应处理程序。

Answer 1

ModPerl::Registry 进行了精心设计，将您的代码与系统中的其他所有内容隔离开来，其中一部分是将其编译到 ModPerl::ROOT 下的包中。

当在列表上下文中使用指定要返回的帧数的参数进行调用时，caller< /code>返回

<前><代码># 0 1 2 3 4
（$package、$filename、$line、$subroutine、$hasargs、
# 5 6 7 8 9 10
$wantarray、$evaltext、$is_require、$hints、$bitmask、$hinthash)
= 来电者($i);

其中 $subroutine 值是完全限定名称。

ModPerl::Registry 将整个程序包装在上述人工包中名为 handler 的子程序中，因此在主程序中，使用类似于以下的测试

my $name = (caller 0)[3];
if ($name =~ /^ModPerl::ROOT::/) {
  # run using ModPerl::Registry
  ...
}