Class::Inspector->loaded

の実装はなんか微妙な気がするなぁ。

$RE_CLASS = qr/\A[^\W\d]\w*(?:(?:'|::)[^\W\d]\w*)*\z/s;

この正規表現でネームスペース名のチェックしてるけど、あってるのこれ。

Foo::32

とか、とおらない。

by typester / at 2006-08-31T23:19:00 / perl / Comments(0)