[dbsrgits/DBIx-Class-ResultSource-MultipleTableInheritance.git] / t / lib / LoadTest.pm

package # hide from PAUSE
	LoadTest;

use strict;
use warnings;
use parent qw(DBIx::Class::Schema);
use aliased 'DBIx::Class::ResultSource::MultipleTableInheritance' => 'MTIView';

for my $p (__PACKAGE__) {
  $p->load_namespaces;
  $_->attach_additional_sources
    for grep $_->isa(MTIView), map $p->source($_), $p->sources;
}

sub sqlt_deploy_hook {
  my $self = shift;
  $self->{sqlt} = shift;
}

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