Improve POD test and make it author-only

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / lib / TestSchemaBaseClass.pm

diff --git a/t/lib/TestSchemaBaseClass.pm b/t/lib/TestSchemaBaseClass.pm
index 82e36dc..b83172b 100644 (file)
--- a/t/lib/TestSchemaBaseClass.pm
+++ b/t/lib/TestSchemaBaseClass.pm
@@ -7,10 +7,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;