無理やり人のモジュールに関数を追加する方法

perl

無理やり人のモジュールに関数を追加するのはおすすめできないけど、たまに必要になる。
その関数が本来必要なら、作者に連絡した方がいいと思うが、オレオレな場合とか。
あと、パッケージ名が変わってもいいなら、継承してもいいかな。
やり方は簡単。パッケージ名も指定して関数を作るだけ。

package Ero;

sub Anataga::Tuika::Sitai::Module::ero {

   # code 
    
}

sub ero {

  my $module = Anataga::Tuika::Sitai::Module->new();
  $module->ero( $ero_obj );

}


1;

使ったやつ

  • 最近以下で説明を書いたモジュール内でも使ってる（今思えば、継承でもよかったな)。(Net::Twitter::Diff , Net::Twitter::FriendFounder )

http://twitter.g.hatena.ne.jp/tomyhero/

  • このモジュールでも使ってる。

http://search.cpan.org/~tomyhero/Catalyst-Plugin-Log-Colorful-0.03/lib/Catalyst/Plugin/Log/Colorful.pm