Perlで特定のpackageを動的にuseするやつ(Module::Find)

2014年5月12日

ちょっと前までは、Module::Recursive::Requireってやつを使ってたんですが、Amon2のサンプルを見てると、Module::Findの方がお手軽な感じだったんで、最近はそっち使ってます。
過去に書いたやつも見かけたら変更して行ってます。

use Module::Find;

my $hoge;
my @hoge = useall Hoge; # Hoge::***をuse
for ( @hoge ) {
    $hoge->{ $_ } = $_->new(); # new
}

# 例えばHoge::Userにcreateってメソッドがある場合は、こんな感じでアクセス。
$hoge->{'Hoge::User'}->create();

関連記事

  1. Perlで特定のモジュール配下を全部newするやつ(Module::Pluggable::Object) ちょい前までは、「Module::Recursive::Require」を使用して、こんな感じで、まとめてnewしていましたが、ふと思い立って「Module::Pluggable::Object」に乗り換えました。 us […]...
  2. Catalyst::View::Xslateでfunction追加してみた。 Catalyst::Helper::View::Xslateで生成した、Myapp::View::Xslateにfunctionを追加してみました。 syntaxは、TTerseにしてます。 (元々使ってたTT2用のテン […]...
  3. Module::Recursive::Requireが便利そうな件 Catalyst::Model::DynamicAdaptorのソースを見てて、見つけた。 use Module::Recursive::Require; use MyApp::Foo; my @required_pac […]...
  4. DBICで、now()とか・・。 ま、now()ってどうやっていれんの？ってコトでググった結果、 ↓みたいな感じで、スカラーリファレンス送ればいいらしい。 my $foo = $c->model('HOGEHOGE')->create({ u […]...
CpanPerl