From: Simon Cozens <simon@simon-cozens.org>
Date: Fri, 25 Mar 2005 14:58:44 +0000 (+0000)
Subject: use strict
X-Git-Tag: 2.10~26
X-Git-Url: https://git.decadent.org.uk/gitweb/?p=maypole.git;a=commitdiff_plain;h=d3a3498e58b23918b3311da94f706bbfe2a576ee

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 dcf35e5..4078b83 100644
--- 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 3b7c58b..d0e9ba8 100644
--- 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 43a10b1..0dee774 100644
--- 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));