* Renamed DBICTest::DBICDebugObj to DBIC::DebugObj.

diff --git a/t/19quotes.t b/t/19quotes.t
index 19d4031..6bd8acf 100644 (file)
--- a/t/19quotes.t
+++ b/t/19quotes.t
@@ -15,7 +15,7 @@ BEGIN {
 use lib qw(t/lib);
 
 use_ok('DBICTest');
-use_ok('DBICTest::DBICDebugObj');
+use_ok('DBIC::DebugObj');
 my $schema = DBICTest->init_schema();
 
 diag('Testing against ' . join(' ', map { $schema->storage->dbh->get_info($_) } qw/17 18/));
@@ -24,7 +24,7 @@ $schema->storage->sql_maker->quote_char('`');
 $schema->storage->sql_maker->name_sep('.');
 
 my ($sql, @bind) = ('');
-$schema->storage->debugobj(DBICTest::DBICDebugObj->new(\$sql, \@bind));
+$schema->storage->debugobj(DBIC::DebugObj->new(\$sql, \@bind));
 $schema->storage->debug(1);
 
 my $rs;

diff --git a/t/19quotes_newstyle.t b/t/19quotes_newstyle.t
index 5b8fcc7..1290e11 100644 (file)
--- a/t/19quotes_newstyle.t
+++ b/t/19quotes_newstyle.t
@@ -15,7 +15,7 @@ BEGIN {
 use lib qw(t/lib);
 
 use_ok('DBICTest');
-use_ok('DBICTest::DBICDebugObj');
+use_ok('DBIC::DebugObj');
 
 my $schema = DBICTest->init_schema();
 
@@ -31,7 +31,7 @@ $schema->connection(
 );
 
 my ($sql, @bind) = ('');
-$schema->storage->debugobj(DBICTest::DBICDebugObj->new(\$sql, \@bind)),
+$schema->storage->debugobj(DBIC::DebugObj->new(\$sql, \@bind)),
 $schema->storage->debug(1);
 
 my $rs;
@@ -64,7 +64,7 @@ $schema->connection(
   { AutoCommit => 1, quote_char => [qw/[ ]/], name_sep => '.' }
 );
 
-$schema->storage->debugobj(DBICTest::DBICDebugObj->new(\$sql, \@bind)),
+$schema->storage->debugobj(DBIC::DebugObj->new(\$sql, \@bind)),
 $schema->storage->debug(1);
 
 $rs = $schema->resultset('CD')->search(

diff --git a/t/91debug.t b/t/91debug.t
index ef9dfd4..a9a1b73 100644 (file)
--- a/t/91debug.t
+++ b/t/91debug.t
@@ -4,7 +4,7 @@ use warnings;
 use Test::More;
 use lib qw(t/lib);
 use DBICTest;
-use DBICTest::DBICDebugObj;
+use DBIC::DebugObj;
 use DBIC::SqlMakerTest;
 
 my $schema = DBICTest->init_schema();
@@ -62,7 +62,7 @@ open(STDERR, '>&STDERRCOPY');
     );
 
     $schema->storage->debugcb(undef);
-    $schema->storage->debugobj(DBICTest::DBICDebugObj->new(\$sql, \@bind));
+    $schema->storage->debugobj(DBIC::DebugObj->new(\$sql, \@bind));
     @cds = $schema->resultset('CD')->search( { artist => 1, cdid => { -between => [ 1, 3 ] }, } );
     is_same_sql_bind(
         $sql, \@bind,

diff --git a/t/lib/DBICTest/DBICDebugObj.pm b/t/lib/DBIC/DebugObj.pm
similarity index 95%
rename from t/lib/DBICTest/DBICDebugObj.pm
rename to t/lib/DBIC/DebugObj.pm
index 162021b..8d8d9b2 100644 (file)
--- a/t/lib/DBICTest/DBICDebugObj.pm
+++ b/t/lib/DBIC/DebugObj.pm
@@ -1,4 +1,5 @@
-package DBICTest::DBICDebugObj;
+package # hide from PAUSE
+  DBIC::DebugObj;
 
 use strict;
 use warnings;