`a :: - func;`はなぜ有効ですか？

Question

package a; 
sub func { 
print 1; 
} 
package main; 
a::->func; 

IMOそれで十分ですa::func、a->funcです。

a::->func;私は非常に奇妙に見えますが、なぜPerlはこのような変な構文をサポートしていますか？

Answer 1

Modern Perl blogのトピックに関するクロマティックの優れた最近のブログ記事を引用すると、「bareword parsing ambiguityを避ける」このような構文が有用である理由を説明するために

は、ここにあなたのサンプルから進化した例です：

package a; 
our $fh; 
use IO::File; 
sub s { 
    return $fh = IO::File->new(); 
} 

package a::s; 
sub binmode { 
    print "BINMODE\n"; 
} 

package main; 
a::s->binmode; # does that mean a::s()->binmode ? 
       # calling sub "s()" from package a; 
       # and then executing sub "open" of the returned object? 
       # In other words, equivalent to $obj = a::s(); $obj->binmode(); 
       # Meaning, set the binmode on a newly created IO::File object? 

a::s->binmode; # OR, does that mean "a::s"->binmode() ? 
       # calling sub "binmode()" from package a::s; 
       # Meaning, print "BINMODE" 

a::s::->binmode; # Not ambiguous - we KNOW it's the latter option - print "BINMODE" 

Answer 2

a::は、文字列aを生産する文字列リテラルです。同じすべて：あなたは*その*の構文は奇妙であると考えられる場合は

a->func() # Only if a doesn't exist as a function. 
"a"->func() 
'a'->func() 
a::->func() 
v97->func() 
chr(97)->func() 

など

>perl -E"say('a', a, a::, v97, chr(97))" 
aaaaa