pesky whitespace
[dbsrgits/DBIx-Class.git] / t / lib / DBIC / DebugObj.pm
index c72bc86..55b74c6 100644 (file)
@@ -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;
 }