perl - __PACKAGE__->{foo} 是什么意思？

Question

我正在重构遗留代码中的 perl 模块，这是模块中的一个函数:

sub get_user {
    my $user = __PACKAGE__->{user};
    if (!defined $user) {
       # more code
       __PACKAGE__->{user} = $user;
    }
    return $user;
}

该模块在 use strict 下编译.并且没有定义包变量。 __PACKAGE__->{user} 是什么意思意思是？

Answer 1

__PACKAGE__是当前包的名称；您的代码将其用作符号哈希引用。因此，如果您的包是 foo，则设置为 $foo::foo{'user'} .这是一件很奇怪的事情。我怀疑这可能是一个错误。

因为它是一个符号引用，所以在 strict 下不应该被允许。然而，似乎至少在当前包有多个部分时(例如 Foo::Bar，而不仅仅是 Foo)。
不过，我不会依赖这个错误保持有效。