X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestSchemaBaseClass.pm;h=c03e97ecf24697cd6535093bc3b7c0e207c01e91;hb=6d0f96209ca74e7bc0857df2ce3a78b7f15a5ce9;hp=82e36dcbd202129e75d22d590270cb576bf3479b;hpb=14b1bd2bfea5864c6a8d68e54df2d6bc2a9b8723;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/t/lib/TestSchemaBaseClass.pm b/t/lib/TestSchemaBaseClass.pm
index 82e36dc..c03e97e 100644
--- a/t/lib/TestSchemaBaseClass.pm
+++ b/t/lib/TestSchemaBaseClass.pm
@@ -1,5 +1,8 @@
 package TestSchemaBaseClass;
-use base DBIx::Class::Schema;
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Schema';
 
 our $test_ok = 0;
 
@@ -7,10 +10,12 @@ sub connection {
     my ($self, @info) = @_;
 
     if ($info[0] =~ /^dbi/) {
-        $test_ok = 1;
+        $test_ok++;
     }
 
     return $self->next::method(@info);
 }
 
+sub testschemabaseclass { 'TestSchemaBaseClass works' }
+
 1;