2006-10-17から1日間の記事一覧

pluginsメソッド

sub plugins { map { $_->new } sort plugin_sort grep { /Plugin::(?:(?!Base|NoMatch).)+$/ } _plugins(@_); } grepしてsortしてmap。…さすがにこれはちょっとどうよ?とか思わないこともない。

Class::Data::InheritableとClass::Data::Accessor

Class::Data::Inheritableを使おうかどうしようかってところ。これ使った方がスマートに書けそうかな。ドキュメント読んで試してみよう。 追記 [22:03] Class::Data::Accessorも使うことに決定。これ使った方がスマートな書き方に出来る。しかし、コア以外の…

モジュールの読み込みにオプションをつける

use Hoge foo => 'bar'; みたいな感じで、読み込むときにオプションを設定できるようになっているモジュールがあります。例えば今私が使っているModule::Pluggableなんかもそうです。こういう実装をするにはどうすればいいのかと思って、ソースを読んでみた…