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

package # hide from PAUSE
	CafeInsertion;

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

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

1;
Commit	Line	Data
3365fc70	1	package # hide from PAUSE
3365fc70	2	CafeInsertion;
c8e085ba	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
3365fc70	15	sub sqlt_deploy_hook {
	16	my $self = shift;
	17	$self->{sqlt} = shift;
	18	}
	19
c8e085ba	20	1;