[open-ils-commits] r12359 - in trunk/Open-ILS/src/perlmods/OpenILS/Application: . Trigger Trigger/Reactor (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-02 17:35:19 -0500 (Mon, 02 Mar 2009)
New Revision: 12359

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Cleanup.pm
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Collector.pm
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/StaticEmail.pm
Log:
add strict/warnings all around to ease debugging

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Cleanup.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Cleanup.pm	2009-03-02 22:30:58 UTC (rev 12358)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Cleanup.pm	2009-03-02 22:35:19 UTC (rev 12359)
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger::Cleanup;
+use strict; use warnings;
 sub fourty_two { return 42 }
 sub NOOP_True { return 1 }
 sub NOOP_False { return 0 }

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Collector.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Collector.pm	2009-03-02 22:30:58 UTC (rev 12358)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Collector.pm	2009-03-02 22:35:19 UTC (rev 12359)
@@ -1,3 +1,4 @@
 package OpenILS::Application::Trigger::Collector;
+use strict; use warnings;
 sub fourty_two { return 42 }
 1;

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-03-02 22:30:58 UTC (rev 12358)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-03-02 22:35:19 UTC (rev 12359)
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger::Event;
+use strict; use warnings;
 use OpenSRF::EX qw/:try/;
 
 use OpenSRF::Utils::Logger qw/:logger/;

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm	2009-03-02 22:30:58 UTC (rev 12358)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm	2009-03-02 22:35:19 UTC (rev 12359)
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger::EventGroup;
+use strict; use warnings;
 use OpenILS::Application::Trigger::Event;
 use base 'OpenILS::Application::Trigger::Event';
 use OpenSRF::EX qw/:try/;

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm	2009-03-02 22:30:58 UTC (rev 12358)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm	2009-03-02 22:35:19 UTC (rev 12359)
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger::ModLoader;
+use strict; use warnings;
 use UNIVERSAL::require;
 
 sub prefix { return 'OpenILS::Application::Trigger' }

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm	2009-03-02 22:30:58 UTC (rev 12358)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm	2009-03-02 22:35:19 UTC (rev 12359)
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger::Reactor::SendEmail;
+use strict; use warnings;
 use Error qw/:try/;
 use Data::Dumper;
 use Email::Send;

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/StaticEmail.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/StaticEmail.pm	2009-03-02 22:30:58 UTC (rev 12358)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/StaticEmail.pm	2009-03-02 22:35:19 UTC (rev 12359)
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger::Reactor::StaticEmail;
+use strict; use warnings;
 use Error qw/:try/;
 use Data::Dumper;
 use Email::Send;

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm	2009-03-02 22:30:58 UTC (rev 12358)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm	2009-03-02 22:35:19 UTC (rev 12359)
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger::Reactor;
+use strict; use warnings;
 use Template;
 use OpenSRF::Utils::Logger qw(:logger);
 

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2009-03-02 22:30:58 UTC (rev 12358)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2009-03-02 22:35:19 UTC (rev 12359)
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger;
+use strict; use warnings;
 use OpenILS::Application;
 use base qw/OpenILS::Application/;