X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBIC%2FDebugObj.pm;h=55b74c65a22368fc864c4f090eae58d02835b75d;hb=2cd3ccc410f4130275d001d797ccc914e24068e9;hp=8d8d9b2ba675d59b61353f384979f6e5b00dc4a0;hpb=67e1ac6d25851f53d1a0e2264313e29d8e4bb3b2;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/lib/DBIC/DebugObj.pm b/t/lib/DBIC/DebugObj.pm
index 8d8d9b2..55b74c6 100644
--- a/t/lib/DBIC/DebugObj.pm
+++ b/t/lib/DBIC/DebugObj.pm
@@ -1,15 +1,11 @@
-package # hide from PAUSE
-  DBIC::DebugObj;
+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/ );
 
@@ -32,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;
 }