From: Brandon L. Black Date: Tue, 8 Aug 2006 05:13:21 +0000 (+0000) Subject: misc warnings/croak/Carp::Clan fixups X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aaba95249e9b4a986ff3f5820e6c95e2ecae68f9;p=dbsrgits%2FDBIx-Class-Historic.git misc warnings/croak/Carp::Clan fixups --- diff --git a/lib/DBIx/Class/Componentised.pm b/lib/DBIx/Class/Componentised.pm index 2b3bf83..ecfe177 100644 --- a/lib/DBIx/Class/Componentised.pm +++ b/lib/DBIx/Class/Componentised.pm @@ -6,7 +6,7 @@ use warnings; use Class::C3; use Class::Inspector; -use Carp::Clan qw/DBIx::Class/; +use Carp::Clan qw/^DBIx::Class/; sub inject_base { my ($class, $target, @to_inject) = @_; diff --git a/lib/DBIx/Class/ResultSource/Table.pm b/lib/DBIx/Class/ResultSource/Table.pm index 1e56359..cf263d1 100644 --- a/lib/DBIx/Class/ResultSource/Table.pm +++ b/lib/DBIx/Class/ResultSource/Table.pm @@ -5,8 +5,6 @@ use warnings; use DBIx::Class::ResultSet; -use Carp qw/croak/; - use base qw/DBIx::Class/; __PACKAGE__->load_components(qw/ResultSource/); diff --git a/lib/DBIx/Class/Storage.pm b/lib/DBIx/Class/Storage.pm index 47b660f..e422da4 100644 --- a/lib/DBIx/Class/Storage.pm +++ b/lib/DBIx/Class/Storage.pm @@ -6,7 +6,7 @@ use warnings; use base qw/DBIx::Class/; use Scalar::Util qw/weaken/; -use Carp::Clan qw/DBIx::Class/; +use Carp::Clan qw/^DBIx::Class/; __PACKAGE__->load_components(qw/AccessorGroup/); __PACKAGE__->mk_group_accessors('simple' => qw/debug debugobj schema/); diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm index 60776d5..36f69ee 100644 --- a/lib/DBIx/Class/Storage/DBI.pm +++ b/lib/DBIx/Class/Storage/DBI.pm @@ -10,7 +10,6 @@ use SQL::Abstract::Limit; use DBIx::Class::Storage::DBI::Cursor; use DBIx::Class::Storage::Statistics; use IO::File; -use Carp::Clan qw/DBIx::Class/; __PACKAGE__->mk_group_accessors( 'simple' => diff --git a/lib/DBIx/Class/Storage/DBI/Oracle.pm b/lib/DBIx/Class/Storage/DBI/Oracle.pm index 29d6c65..8549b41 100644 --- a/lib/DBIx/Class/Storage/DBI/Oracle.pm +++ b/lib/DBIx/Class/Storage/DBI/Oracle.pm @@ -3,7 +3,7 @@ package DBIx::Class::Storage::DBI::Oracle; use strict; use warnings; -use Carp qw/croak/; +use Carp::Clan qw/^DBIx::Class/; use base qw/DBIx::Class::Storage::DBI::MultiDistinctEmulation/; diff --git a/lib/DBIx/Class/Storage/Statistics.pm b/lib/DBIx/Class/Storage/Statistics.pm index eaa3ee9..cd16fb5 100644 --- a/lib/DBIx/Class/Storage/Statistics.pm +++ b/lib/DBIx/Class/Storage/Statistics.pm @@ -1,5 +1,6 @@ package DBIx::Class::Storage::Statistics; use strict; +use warnings; use base qw/DBIx::Class::AccessorGroup Class::Data::Accessor/; __PACKAGE__->mk_group_accessors(simple => qw/callback debugfh/);