我有一个 mod_perl 脚本:
use strict;
use warnings FATAL => 'all';
use 5.010001;
my $face = 'ugly';
use Data::Dump qq(pp);
die pp($ModPerl::ROOT::ModPerl::Registry::C_3a_www_test_2epl::face);
它死了undef at C:/www/test.pl line 8.
我期待"ugly" at C:/www/test.pl line 8.
如果相反我
die pp(%ModPerl::ROOT::ModPerl::Registry::C_3a_www_test_2epl::);
...重新启动服务以清除任何缓存的变量后,face
甚至没有列出。
我可以发誓这个代码在我上次使用它时工作正常......我die
围绕这种命名局部变量的方式编写了一个完整的钩子,以便我可以获取某些局部变量来转储调试信息。
什么是本地命名空间?