t/lib/NoSequenceSalad.pm

   1 package # hide from PAUSE
   2         NoSequenceSalad;
   3
   4 use strict;
   5 use warnings;
   6 use parent 'DBIx::Class::Schema';
   7 use aliased 'DBIx::Class::ResultSource::MultipleTableInheritance' => 'MTIView';
   8
   9 for my $p (__PACKAGE__) {
  10   $p->load_namespaces;
  11   $_->attach_additional_sources
  12     for grep $_->isa(MTIView), map $p->source($_), $p->sources;
  13 }
  14
  15 sub sqlt_deploy_hook {
  16   my $self = shift;
  17   $self->{sqlt} = shift;
  18 }
  19
  20 1;