X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBIx%2FClass%2FTestSchemaComponent.pm;h=6e83dc6ce1c4293727fcfea413eb00589a7d09fe;hb=cc15b78ff04f40dad669e62bdba95865d246ad11;hp=21cd85380602e92501463f3b776ef86f4cf43cee;hpb=14b1bd2bfea5864c6a8d68e54df2d6bc2a9b8723;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/t/lib/DBIx/Class/TestSchemaComponent.pm b/t/lib/DBIx/Class/TestSchemaComponent.pm
index 21cd853..6e83dc6 100644
--- a/t/lib/DBIx/Class/TestSchemaComponent.pm
+++ b/t/lib/DBIx/Class/TestSchemaComponent.pm
@@ -1,5 +1,18 @@
 package DBIx::Class::TestSchemaComponent;
 
+use strict;
+use warnings;
+
+our $test_component_ok = 0;
+
+sub connection {
+    my ($self, @info) = @_;
+
+    $test_component_ok = 1;
+
+    return $self->next::method(@info);
+}
+
 sub dbix_class_testschemacomponent { 'dbix_class_testschemacomponent works' }
 
 1;