Commit | Line | Data |
---|---|---|
a267ea85 | 1 | # belongs to t/86sqlt.t |
2 | package # hide from PAUSE | |
3 | DBICTest::DeployComponent; | |
4 | use warnings; | |
5 | use strict; | |
6 | ||
7 | our $hook_cb; | |
8 | ||
9 | sub sqlt_deploy_hook { | |
10 | my $class = shift; | |
11 | ||
12 | $hook_cb->($class, @_) if $hook_cb; | |
13 | $class->next::method(@_) if $class->next::can; | |
14 | } | |
15 | ||
16 | 1; |