implement schema_base_class for dynamic schemas

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

diff --git a/t/lib/DBIx/Class/TestSchemaComponent.pm b/t/lib/DBIx/Class/TestSchemaComponent.pm
index 21cd853..6e83dc6 100644 (file)
--- 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;