From: Brandon L. Black <blblack@gmail.com>
Date: Fri, 24 Mar 2006 05:00:32 +0000 (+0000)
Subject: Added use strict / use warnings everywhere it was missing
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bf5ecff9ac30e6acfd912ce3c72ee86b73b775dc;p=dbsrgits%2FDBIx-Class-Historic.git

Added use strict / use warnings everywhere it was missing
---

diff --git a/lib/DBIx/Class/CDBICompat/AttributeAPI.pm b/lib/DBIx/Class/CDBICompat/AttributeAPI.pm
index edcc2e1..09c955f 100644
--- a/lib/DBIx/Class/CDBICompat/AttributeAPI.pm
+++ b/lib/DBIx/Class/CDBICompat/AttributeAPI.pm
@@ -1,6 +1,9 @@
 package # hide from PAUSE 
     DBIx::Class::CDBICompat::AttributeAPI;
 
+use strict;
+use warnings;
+
 sub _attrs {
   my ($self, @atts) = @_;
   return @{$self->{_column_data}}{@atts};
diff --git a/lib/DBIx/Class/CDBICompat/GetSet.pm b/lib/DBIx/Class/CDBICompat/GetSet.pm
index f90a204..204b38b 100644
--- a/lib/DBIx/Class/CDBICompat/GetSet.pm
+++ b/lib/DBIx/Class/CDBICompat/GetSet.pm
@@ -1,6 +1,9 @@
 package # hide from PAUSE 
     DBIx::Class::CDBICompat::GetSet;
 
+use strict;
+use warnings;
+
 #use base qw/Class::Accessor/;
 
 sub get {
diff --git a/lib/DBIx/Class/ClassResolver/PassThrough.pm b/lib/DBIx/Class/ClassResolver/PassThrough.pm
index 2bcb1e1..754a89a 100644
--- a/lib/DBIx/Class/ClassResolver/PassThrough.pm
+++ b/lib/DBIx/Class/ClassResolver/PassThrough.pm
@@ -1,6 +1,9 @@
 package # hide from PAUSE
     DBIx::Class::ClassResolver::PassThrough;
 
+use strict;
+use warnings;
+
 sub class {
   shift;
   return shift;
diff --git a/lib/DBIx/Class/Componentised.pm b/lib/DBIx/Class/Componentised.pm
index fa9b7d9..a42befc 100644
--- a/lib/DBIx/Class/Componentised.pm
+++ b/lib/DBIx/Class/Componentised.pm
@@ -1,6 +1,9 @@
 package # hide from PAUSE 
     DBIx::Class::Componentised;
 
+use strict;
+use warnings;
+
 use Class::C3;
 
 sub inject_base {
diff --git a/lib/DBIx/Class/DB.pm b/lib/DBIx/Class/DB.pm
index c0bb686..d996c1a 100644
--- a/lib/DBIx/Class/DB.pm
+++ b/lib/DBIx/Class/DB.pm
@@ -1,5 +1,8 @@
 package DBIx::Class::DB;
 
+use strict;
+use warnings;
+
 use base qw/DBIx::Class/;
 use DBIx::Class::Schema;
 use DBIx::Class::Storage::DBI;
@@ -8,8 +11,11 @@ use DBI;
 
 __PACKAGE__->load_components(qw/ResultSetProxy/);
 
-*dbi_commit = \&txn_commit;
-*dbi_rollback = \&txn_rollback;
+{
+    no warnings 'once';
+    *dbi_commit = \&txn_commit;
+    *dbi_rollback = \&txn_rollback;
+}
 
 sub storage { shift->schema_instance(@_)->storage; }
 
diff --git a/lib/DBIx/Class/Relationship/CascadeActions.pm b/lib/DBIx/Class/Relationship/CascadeActions.pm
index eda7fb6..e4564c1 100644
--- a/lib/DBIx/Class/Relationship/CascadeActions.pm
+++ b/lib/DBIx/Class/Relationship/CascadeActions.pm
@@ -1,6 +1,9 @@
 package # hide from PAUSE
     DBIx::Class::Relationship::CascadeActions;
 
+use strict;
+use warnings;
+
 sub delete {
   my ($self, @rest) = @_;
   return $self->next::method(@rest) unless ref $self;
diff --git a/lib/DBIx/Class/ResultSetManager.pm b/lib/DBIx/Class/ResultSetManager.pm
index 2cb6239..5e10f67 100644
--- a/lib/DBIx/Class/ResultSetManager.pm
+++ b/lib/DBIx/Class/ResultSetManager.pm
@@ -1,5 +1,6 @@
 package DBIx::Class::ResultSetManager;
 use strict;
+use warnings;
 use base 'DBIx::Class';
 use Class::Inspector;
 
diff --git a/lib/DBIx/Class/ResultSetProxy.pm b/lib/DBIx/Class/ResultSetProxy.pm
index ecbf47d..547561f 100644
--- a/lib/DBIx/Class/ResultSetProxy.pm
+++ b/lib/DBIx/Class/ResultSetProxy.pm
@@ -1,6 +1,9 @@
 package # hide from PAUSE
     DBIx::Class::ResultSetProxy;
 
+use strict;
+use warnings;
+
 use base qw/DBIx::Class/;
 
 sub search           { shift->resultset_instance->search(@_);           }
diff --git a/lib/DBIx/Class/Serialize/Storable.pm b/lib/DBIx/Class/Serialize/Storable.pm
index fc94fa2..c9f1314 100644
--- a/lib/DBIx/Class/Serialize/Storable.pm
+++ b/lib/DBIx/Class/Serialize/Storable.pm
@@ -1,5 +1,6 @@
 package DBIx::Class::Serialize::Storable;
 use strict;
+use warnings;
 use Storable;
 
 sub STORABLE_freeze {
diff --git a/lib/DBIx/Class/Test/SQLite.pm b/lib/DBIx/Class/Test/SQLite.pm
index 97642ce..e5bc012 100644
--- a/lib/DBIx/Class/Test/SQLite.pm
+++ b/lib/DBIx/Class/Test/SQLite.pm
@@ -31,6 +31,7 @@ table, and tie it to the class.
 =cut
 
 use strict;
+use warnings;
 
 use base qw/DBIx::Class/;
 
diff --git a/lib/DBIx/Class/UUIDColumns.pm b/lib/DBIx/Class/UUIDColumns.pm
index 8a58527..76647ad 100644
--- a/lib/DBIx/Class/UUIDColumns.pm
+++ b/lib/DBIx/Class/UUIDColumns.pm
@@ -1,4 +1,8 @@
 package DBIx::Class::UUIDColumns;
+
+use strict;
+use warnings;
+
 use base qw/DBIx::Class/;
 
 __PACKAGE__->mk_classdata( 'uuid_auto_columns' => [] );
diff --git a/lib/DBIx/Class/UUIDMaker.pm b/lib/DBIx/Class/UUIDMaker.pm
index b9c196c..0baedad 100644
--- a/lib/DBIx/Class/UUIDMaker.pm
+++ b/lib/DBIx/Class/UUIDMaker.pm
@@ -1,5 +1,8 @@
 package DBIx::Class::UUIDMaker;
 
+use strict;
+use warnings;
+
 sub new {
     return bless {}, shift;
 };
diff --git a/lib/DBIx/Class/UUIDMaker/APR/UUID.pm b/lib/DBIx/Class/UUIDMaker/APR/UUID.pm
index 136ec5f..c7a383d 100644
--- a/lib/DBIx/Class/UUIDMaker/APR/UUID.pm
+++ b/lib/DBIx/Class/UUIDMaker/APR/UUID.pm
@@ -1,4 +1,8 @@
 package DBIx::Class::UUIDMaker::APR::UUID;
+
+use strict;
+use warnings;
+
 use base qw/DBIx::Class::UUIDMaker/;
 use APR::UUID ();
 
diff --git a/lib/DBIx/Class/UUIDMaker/Data/UUID.pm b/lib/DBIx/Class/UUIDMaker/Data/UUID.pm
index 820669c..f70680c 100644
--- a/lib/DBIx/Class/UUIDMaker/Data/UUID.pm
+++ b/lib/DBIx/Class/UUIDMaker/Data/UUID.pm
@@ -1,4 +1,8 @@
 package DBIx::Class::UUIDMaker::Data::UUID;
+
+use strict;
+use warnings;
+
 use base qw/DBIx::Class::UUIDMaker/;
 use Data::UUID ();
 
diff --git a/lib/DBIx/Class/UUIDMaker/Data/Uniqid.pm b/lib/DBIx/Class/UUIDMaker/Data/Uniqid.pm
index 8d9a29d..36189e1 100644
--- a/lib/DBIx/Class/UUIDMaker/Data/Uniqid.pm
+++ b/lib/DBIx/Class/UUIDMaker/Data/Uniqid.pm
@@ -1,4 +1,8 @@
 package DBIx::Class::UUIDMaker::Data::Uniqid;
+
+use strict;
+use warnings;
+
 use base qw/DBIx::Class::UUIDMaker/;
 use Data::Uniqid ();
 
diff --git a/lib/DBIx/Class/UUIDMaker/UUID.pm b/lib/DBIx/Class/UUIDMaker/UUID.pm
index 7a647a9..f6fb802 100644
--- a/lib/DBIx/Class/UUIDMaker/UUID.pm
+++ b/lib/DBIx/Class/UUIDMaker/UUID.pm
@@ -1,4 +1,8 @@
 package DBIx::Class::UUIDMaker::UUID;
+
+use strict;
+use warnings;
+
 use base qw/DBIx::Class::UUIDMaker/;
 use UUID ();
 
diff --git a/lib/DBIx/Class/UUIDMaker/Win32/Guidgen.pm b/lib/DBIx/Class/UUIDMaker/Win32/Guidgen.pm
index 3c34b9a..e24e2eb 100644
--- a/lib/DBIx/Class/UUIDMaker/Win32/Guidgen.pm
+++ b/lib/DBIx/Class/UUIDMaker/Win32/Guidgen.pm
@@ -1,4 +1,8 @@
 package DBIx::Class::UUIDMaker::Win32::Guidgen;
+
+use strict;
+use warnings;
+
 use base qw/DBIx::Class::UUIDMaker/;
 use Win32::Guidgen ();
 
diff --git a/lib/DBIx/Class/UUIDMaker/Win32API/GUID.pm b/lib/DBIx/Class/UUIDMaker/Win32API/GUID.pm
index 85caad1..3d25cac 100644
--- a/lib/DBIx/Class/UUIDMaker/Win32API/GUID.pm
+++ b/lib/DBIx/Class/UUIDMaker/Win32API/GUID.pm
@@ -1,4 +1,8 @@
 package DBIx::Class::UUIDMaker::Win32API::GUID;
+
+use strict;
+use warnings;
+
 use base qw/DBIx::Class::UUIDMaker/;
 use Win32API::GUID ();