From c34c90c4e6a389acad568999bd148c0834f2df9e Mon Sep 17 00:00:00 2001 From: miker Date: Wed, 28 Jan 2009 01:44:05 +0000 Subject: [PATCH] add specialized module namespace overrides git-svn-id: svn://svn.open-ils.org/ILS/trunk@12001 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../OpenILS/Application/Trigger/ModRunner.pm | 22 ++++++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm index 47621ae9ca..f5a0fe1926 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm @@ -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 @@ sub load { 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 @@ sub load { 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 @@ sub run { 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'; -- 2.11.0