Added tests for chained sqlt_deploy_hook()'s

[dbsrgits/DBIx-Class.git] / t / lib / DBICTest / DeployComponent.pm

diff --git a/t/lib/DBICTest/DeployComponent.pm b/t/lib/DBICTest/DeployComponent.pm
new file mode 100644 (file)
index 0000000..590fc25
--- /dev/null
+++ b/t/lib/DBICTest/DeployComponent.pm
@@ -0,0 +1,16 @@
+#   belongs to t/86sqlt.t
+package # hide from PAUSE
+    DBICTest::DeployComponent;
+use warnings;
+use strict;
+
+our $hook_cb;
+
+sub sqlt_deploy_hook {
+  my $class = shift;
+
+  $hook_cb->($class, @_) if $hook_cb;
+  $class->next::method(@_) if $class->next::can;
+}
+
+1;