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

package Cafe;

use strict;
use warnings;
use parent '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
c8e085ba	1	package Cafe;
	2
	3	use strict;
	4	use warnings;
	5	use parent 'DBIx::Class::Schema';
	6	use aliased 'DBIx::Class::ResultSource::MultipleTableInheritance' => 'MTIView';
	7
	8	for my $p (__PACKAGE__) {
	9	$p->load_namespaces;
	10	$_->attach_additional_sources
	11	for grep $_->isa(MTIView), map $p->source($_), $p->sources;
	12	}
	13
	14	1;