ハッシュではプラス記号は何を意味しますか？

Question

私は以下のPerlコードを持っていますが、その動作を理解できません。

use constant ANIMAL => 'rabbit'; 
if ($self->{+ANIMAL}) { 
    # Do something here 
} 

定数ANIMAL前+記号は何を意味するのでしょうか？ perldoc constantから

Answer 1

：

あなたが（任意のサブルーチンコールのために真であるとして）自動的に裸の単語を引用文脈で定数を使用する場合は、トラブルに巻き込まれることができます。たとえば、CONSTANTは文字列として解釈されるため、$hash{CONSTANT}と言うことはできません。同様に、=>オペレータは、すぐ左側にbarewordを引用しているので、の代わりにCONSTANT() => 'value'（または単に大きな矢印の代わりにカンマを使用する）と言う必要があります。

Answer 2

Denis Ibaevの応答時にビル、B::Deparseコードがとして使用せずに解析される方法を示すことができ+：

perl -MO=Deparse,-p script.pl

+付：

use constant ('ANIMAL', 'rabbit'); 
if ($$self{+'rabbit'}) { 
    (); 
} 
script.pl syntax OK 

+なし：

use constant ('ANIMAL', 'rabbit'); 
if ($$self{'ANIMAL'}) { 
    (); 
} 
script.pl syntax OK 

+は、なしのベア語ANIMALが使用されているconstantを使用して呼び出します。