__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に変更が入って名前を変えてもこれなら問題ないと。
うーみゅ。こりゃいいね。