Test for more internal object leaks (fails)

[dbsrgits/DBIx-Class.git] / t / lib / DBIC / DebugObj.pm

diff --git a/t/lib/DBIC/DebugObj.pm b/t/lib/DBIC/DebugObj.pm
index c72bc86..c43bae9 100644 (file)
--- a/t/lib/DBIC/DebugObj.pm
+++ b/t/lib/DBIC/DebugObj.pm
@@ -3,12 +3,9 @@ package DBIC::DebugObj;
 use strict;
 use warnings;
 
-use Exporter;
 use Class::C3;
 
-use base qw/DBIx::Class::Storage::Statistics/;
-use base qw/Exporter/;
-use base qw/Class::Accessor::Fast/;
+use base qw/DBIx::Class::Storage::Statistics Exporter Class::Accessor::Fast/;
 
 __PACKAGE__->mk_accessors( qw/dbictest_sql_ref dbictest_bind_ref/ );
 
@@ -31,7 +28,7 @@ sub new {
   $self->debugfh(undef);
 
   $self->dbictest_sql_ref($sql_ref);
-  $self->dbictest_bind_ref($bind_ref);
+  $self->dbictest_bind_ref($bind_ref || []);
 
   return $self;
 }
@@ -44,7 +41,7 @@ sub query_start {
 
 sub query_end { }
 
-sub txn_start { }
+sub txn_begin { }
 
 sub txn_commit { }