perl - 我的声明会发生什么？

Question

我知道标题听起来很有趣，但我在某处找到了这个片段:

my MyPackage $p1 = MyPackage->new;

包名在 $p1前面起什么作用?

编辑:我正在运行 perl 5.10.1 .

Answer 1

它检查具有相同名称的包，并且截至目前，与 fields 相关联。 pragma 有助于检查字段名称中的拼写错误。

例如:

package MyPackage;
use fields qw/ foo bar /;
sub new { fields::new(shift) }

那么如果你尝试运行

use MyPackage;
my MyPackage $p1 = MyPackage->new;
print $p1->{notpresent}, "\n";

你得到

No such class field "notpresent" in variable $p1 of type MyPackage at ...