Commit | Line | Data |
---|---|---|
a267ea85 | 1 | # belongs to t/86sqlt.t |
2 | package # hide from PAUSE | |
3 | DBICTest::DeployComponent; | |
c356fcb1 | 4 | |
a267ea85 | 5 | use warnings; |
6 | use strict; | |
7 | ||
c356fcb1 | 8 | # Part of a test, important to remain as-is |
9 | # see also DBICTest::Schema::Track | |
10 | use base 'DBIx::Class::Core'; | |
11 | ||
a267ea85 | 12 | our $hook_cb; |
13 | ||
14 | sub sqlt_deploy_hook { | |
15 | my $class = shift; | |
16 | ||
17 | $hook_cb->($class, @_) if $hook_cb; | |
18 | $class->next::method(@_) if $class->next::can; | |
19 | } | |
20 | ||
21 | 1; |