From d3a3498e58b23918b3311da94f706bbfe2a576ee Mon Sep 17 00:00:00 2001 From: Simon Cozens Date: Fri, 25 Mar 2005 14:58:44 +0000 Subject: [PATCH] use strict git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@338 48953598-375a-da11-a14b-00016c27c3ee --- lib/Maypole/Constants.pm | 1 + lib/Maypole/Model/Base.pm | 1 + lib/Maypole/Model/CDBI/Plain.pm | 1 + 3 files changed, 3 insertions(+) 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)); -- 2.39.5