実行時にモジュール名が決まるｕｓｅとｎｅｗ

大きいＰｅｒｌスクリプトを作り、機能単位でプラグインとしてパッケージモジュールに分割、設定ファイルでパッケージ名を指定して呼び出すので、 動的にｕｓｅしたい。 でもｕｓｅはコンパイル時に動作するので動的なｕｓｅができないからなんとかしたい。 ついでにパッケージをクラスとしてオブジェクトを作りたい。

sub object_new {
	my $class = shift;

	my $obj;
	eval <<"EOF";
require $class;
${class}->import();
\$obj = ${class}->new(\@_);
EOF

	return $obj;
}

まずクラスのパッケージ「MyClass.pm」を普通にｕｓｅする場合。

use MyClass;
my $object = MyClass->new("abc", "def");

これを動的にｕｓｅする場合。

my $object = object_new("MyClass", "abc", "def");