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

ちょっと前までは、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(); 

コメントを残す

メールアドレスが公開されることはありません。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください