use strict

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@338 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/lib/Maypole/Constants.pm b/lib/Maypole/Constants.pm
index dcf35e5b6561012e16d1911f3442d8ce284ff1a2..4078b83bccb01ba6038baa8ca80e7f50ae274239 100644 (file)
--- a/lib/Maypole/Constants.pm
+++ b/lib/Maypole/Constants.pm
@@ -1,4 +1,5 @@
 package Maypole::Constants;
+use strict;
 use base 'Exporter';
 use constant OK       => 0;
 use constant DECLINED => -1;

diff --git a/lib/Maypole/Model/Base.pm b/lib/Maypole/Model/Base.pm
index 3b7c58bc6767021b1c475e77388e6dfd59c7c04f..d0e9ba81670c357160685195b205736513712b0a 100644 (file)
--- a/lib/Maypole/Model/Base.pm
+++ b/lib/Maypole/Model/Base.pm
@@ -1,5 +1,6 @@
 package Maypole::Model::Base;
 
+use strict;
 use Maypole::Constants;
 use attributes ();
 

diff --git a/lib/Maypole/Model/CDBI/Plain.pm b/lib/Maypole/Model/CDBI/Plain.pm
index 43a10b105a8c2da22f57198383dd6c6601131210..0dee774b9813ef34dd37df9bb6c9d668aea78338 100644 (file)
--- a/lib/Maypole/Model/CDBI/Plain.pm
+++ b/lib/Maypole/Model/CDBI/Plain.pm
@@ -1,5 +1,6 @@
 package Maypole::Model::CDBI::Plain;
 use base 'Maypole::Model::CDBI';
+use strict;
 
 Maypole::Config->mk_accessors(qw(table_to_class));