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

package MTITest;

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;
}

1;
Commit	Line	Data
7abe3af2	1	package MTITest;
	2
	3	use strict;
	4	use warnings;
	5	use parent qw(DBIx::Class::Schema);
c73d582b	6	use aliased 'DBIx::Class::ResultSource::MultipleTableInheritance' => 'MTIView';
7abe3af2	7
c73d582b	8	for my $p (__PACKAGE__) {
	9	$p->load_namespaces;
	10	$_->attach_additional_sources
	11	for grep $_->isa(MTIView), map $p->source($_), $p->sources;
	12	}
7abe3af2	13
7abe3af2	14	1;