t/lib/DBICTest/DeployComponent.pm

   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;