From: Brandon L. Black Date: Fri, 24 Mar 2006 05:00:32 +0000 (+0000) Subject: Added use strict / use warnings everywhere it was missing X-Git-Tag: v0.06000~22 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bf5ecff9ac30e6acfd912ce3c72ee86b73b775dc;p=dbsrgits%2FDBIx-Class.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 ();