From: Norbert Buchmuller Date: Tue, 25 Nov 2008 06:50:05 +0000 (+0100) Subject: * Renamed DBICTest::DBICDebugObj to DBIC::DebugObj. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=67e1ac6d25851f53d1a0e2264313e29d8e4bb3b2;p=dbsrgits%2FDBIx-Class-Historic.git * Renamed DBICTest::DBICDebugObj to DBIC::DebugObj. --- diff --git a/t/19quotes.t b/t/19quotes.t index 19d4031..6bd8acf 100644 --- 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 --- 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 --- 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 --- 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;