define load_module($args, $module) method.

load model dependent module. return the object for $module.

1 files changed, 24 insertions, 0 deletions

diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index ba478a83..6db5a939 100644
--- a/fml/lib/FML/Process/Kernel.pm
+++ b/fml/lib/FML/Process/Kernel.pm
@@ -417,6 +417,30 @@ sub parse_incoming_message
 }
 
 
+=head1 MISCELLANEOUS METHODS
+
+=head2 C<load_module($args, $module)>
+
+load model dependent module.
+return the object for C<$module>.
+
+=cut
+
+sub load_module
+{
+    my ($curproc, $args, $pkg) = @_;
+
+    # fake use() to do "use FML::Ticket::$model;"
+    eval qq{ require $pkg; $pkg->import();};
+    unless ($@) {
+	return $pkg->new($curproc, $args);
+    }
+    else {
+	Log($@);
+    }
+}
+
+
 =head1 AUTHOR
 
 Ken'ichi Fukamachi