__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'}。這是一件很奇怪的事情;我懷疑這可能是一個錯誤。

因爲它是一個符號引用，它不應該被嚴格禁止。但是，至少當前包中包含多個部分（例如Foo :: Bar，而不僅僅是Foo）似乎是這樣。 雖然，我不會依賴這個bug繼續生效。

Answer 2

__PACKAGE__是一個散列。該語法訪問鍵控值。

Answer 3

use strict; 
use warnings; 
use 5.012; 

{ 
    package X::Y; 

    our $user = 10; 
    say $user; 

    say __PACKAGE__; 

} 


--output:-- 
10 
X::Y 

包名可能是'X :: Y'，但包的符號表被命名爲'X :: Y ::'（注意尾部冒號）。符號表是perl散列，並且％X :: Y :: hash中的鍵是X :: Y包中使用的全局名稱。對應的值是每個名稱的類型團：

use strict; 
use warnings; 
use 5.012; 

{ 
    package X::Y; 

    our $user = 10; 
    say $user; 

    say __PACKAGE__; 
    say $X::Y::{user}; #Hash name is %X::Y:: 


} 

--output:-- 
10 
X::Y 
*X::Y::user 

但在運算表達式：

__PACKAGE__->{user} 

等同於：

'X::Y'->{user} 

我看不出那怎麼行會成功地從名爲'X :: Y ::'的哈希中檢索（以兩個冒號結尾）。而事實上，我得到這個錯誤：

use strict; 
use warnings; 
use 5.012; 

{ 
    package X::Y; 

    our $user = 10; 
    say $user; 

    say __PACKAGE__; 
    say $X::Y::{user}; 
    say __PACKAGE__->{user}; 
} 

--output:-- 
10 
X::Y 
*X::Y::user 
Use of uninitialized value in say at 2.pl line 13. 

如果代碼實際上創建了一個名爲哈希％X ::Ÿ某處，那麼代碼將沒有錯誤運行：

use strict; 
use warnings; 
use 5.012; 


%X::Y =(); #This hash has nothing to do with the hash named 
      #%X::Y::, which is the symbol table for the 
      #X::Y package. 

$X::Y{user} = 'hello'; 


{ 
    package X::Y; 

    sub get_user { 
     say __PACKAGE__->{user}; 
    } 

    get_user; 
} 


--output:-- 
hello 

正如提到的評論，％X :: Y哈希與X :: Y包無關。實際上，該行：

%X::Y =(); 

顯式聲明X包中的一個名爲Y的變量。 X包和X :: Y包是兩個不同的包。

And there's no package variables defined

子名字是一個包變量：

use strict; 
use warnings; 
use 5.012; 

{ 
    package X::Y; 

    sub get_user {say 'hello';} 

    say $X::Y::{get_user}; 

} 

--output:-- 
*X::Y::get_user 

的事實，即名稱爲「GET_USER」存在，一個類型團意味着代碼使用名爲「GET_USER」中至少一個全局變量。