[open-ils-commits] r12001 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger

[svn at svn.open-ils.org]

Author: miker
Date: 2009-01-27 20:44:05 -0500 (Tue, 27 Jan 2009)
New Revision: 12001

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm
Log:
add specialized module namespace overrides

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm	2009-01-27 13:41:30 UTC (rev 12000)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm	2009-01-28 01:44:05 UTC (rev 12001)
@@ -1,6 +1,8 @@
 package OpenILS::Application::Trigger::ModLoader;
 use UNIVERSAL::require;
 
+sub prefix { return 'OpenILS::Application::Trigger' }
+
 sub new {
     my $class = shift;
     $class = ref($class) || $class;
@@ -55,7 +57,7 @@
     my $loaded = $m->use;
 
     if (!$loaded) {
-        $builtin_m = "OpenILS::Application::Trigger::$m";
+        $builtin_m = $self->prefix . "::$m";
         $loaded = $builtin_m->use;
 
         if (!$loaded) {
@@ -67,7 +69,7 @@
 
                 if (!$loaded) {
                     $h =  $self->handler;
-                    my $builtin_m = "OpenILS::Application::Trigger::$m";
+                    $builtin_m = $self->prefix . "::$m";
                     $loaded = $m->use;
 
                     $m = $builtin_m if ($loaded);
@@ -152,6 +154,22 @@
     return $self;
 };
 
+package OpenILS::Application::Trigger::ModRunner::Collector;
+use base 'OpenILS::Application::Trigger::ModRunner';
+sub prefix { return 'OpenILS::Application::Trigger::Collector' }
+
+package OpenILS::Application::Trigger::ModRunner::Validator;
+use base 'OpenILS::Application::Trigger::ModRunner';
+sub prefix { return 'OpenILS::Application::Trigger::Validator' }
+
+package OpenILS::Application::Trigger::ModRunner::Reactor;
+use base 'OpenILS::Application::Trigger::ModRunner';
+sub prefix { return 'OpenILS::Application::Trigger::Reactor' }
+
+package OpenILS::Application::Trigger::ModRunner::Cleanup;
+use base 'OpenILS::Application::Trigger::ModRunner';
+sub prefix { return 'OpenILS::Application::Trigger::Cleanup' }
+
 package OpenILS::Application::Trigger::ModStackRunner;
 use base 'OpenILS::Application::Trigger::ModRunner';