perl - Moose && utf8(包|方法)名称

Question

有这个:

use utf8;
package ÁngryBird;   #note the Á in the package name

perl -c 结果是 syntax OK。

use utf8;
package ÁngryMoose;
use Moose;

perl -c 说，

ÁngryMoose is not a module name at 
/opt/local/lib/perl5/site_perl/5.12.4/darwin-multi-2level/Class/MOP/Package.pm
 line 209.

那么，代码有什么问题？

Answer 1

Moose 使用 this regexp来自 Package::Stash::PP 用于检查包名:

elsif ($package !~ /\A[0-9A-Z_a-z]+(?:::[0-9A-Z_a-z]+)*\z/) {
    confess "$package is not a module name";
}

或this regexp来自 Package::Stash::XS:

const char *vmre = "\\A[0-9A-Z_a-z]+(?:::[0-9A-Z_a-z]+)*\\z";

但是你 may create your own package stash inplementation在命名空间 Package::Stash 中，并在加载 之前通过设置环境变量 PACKAGE_STASH_IMPLEMENTATION 或变量 $Package::Stash::IMPLEMENTATION 来使用它>Package::Stash。例如，如果您的实现名称为 Package::Stash::My，则将变量设置为 My。