From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
12345678910111213141516 # belongs to t/86sqlt.tpackage # 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;
# belongs to t/86sqlt.t
package
# hide from PAUSE
DBICTest::DeployComponent;
use
warnings;
strict;
our
$hook_cb
;
sub
sqlt_deploy_hook {
my
$class
=
shift
->(
,
@_
)
if
->
next
::method(
::can;
}
1;