0

我有一个 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围绕这种命名局部变量的方式编写了一个完整的钩子,以便我可以获取某些局部变量来转储调试信息。

什么是本地命名空间?

4

1 回答 1

0

只有共享 using 的变量才能our以这种方式访问​​。

于 2010-03-08T22:16:00.687 回答