__PACKAGE__
こんな特殊定数有るんですね。
知らなかったです。
これを使えばpackage名を変更する事になってもソースの変更が減るかもなぁ。
たとえば昨日のこれ。
package Hoge; use strict; use base qw(Class::Accessor); Hoge->mk_accessors(qw(Fuga));
がこうなるわけですね。
package Hoge; use strict; use base qw(Class::Accessor); __PACKAGE__->mk_accessors(qw(Fuga));
で、もしHogeに変更が入って名前を変えてもこれなら問題ないと。
うーみゅ。こりゃいいね。