2008-03-24 12.6 呼び出し側のパッケージを判定する Perl Cookbook 現在のパッケージを判定する。 $this_pack = __PACKAGE__; 呼び出し側のパッケージを判定する。 $that_pack = caller();