我正在重构遗留代码中的 perl 模块,这是模块中的一个函数:
sub get_user {
my $user = __PACKAGE__->{user};
if (!defined $user) {
# more code
__PACKAGE__->{user} = $user;
}
return $user;
}
该模块在
use strict
下编译.并且没有定义包变量。__PACKAGE__->{user}
是什么意思意思是?
最佳答案
__PACKAGE__
是当前包的名称;您的代码将其用作符号哈希引用。因此,如果您的包是 foo,则设置为 $foo::foo{'user'}
.这是一件很奇怪的事情。我怀疑这可能是一个错误。
因为它是一个符号引用,所以在 strict 下不应该被允许。然而,似乎至少在当前包有多个部分时(例如 Foo::Bar,而不仅仅是 Foo)。
不过,我不会依赖这个错误保持有效。
关于perl - __PACKAGE__->{foo} 是什么意思?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3195174/