kimoto/DBIx-Custom at 9345003549bea711cd0bbafc5889f18ef351e0ea ・ Gitprep

DBIx-Custom / t / common / MyDBI1.pm /

Newer ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ Older

19 lines | 0.227kb

test cleranup 5e1d777 Yuki Kimoto authored on 2011-08-10	1	package MyDBI1;
	2
	3	use strict;
	4	use warnings;
	5
	6	use base 'DBIx::Custom';
	7
	8	sub connect {
cleanup 5e8d869 Yuki Kimoto authored on 2012-01-20	9	my $self = shift->SUPER::connect(@_);
	10
	11	$self->include_model(
	12	MyModel1 => [
	13	$self->table1,
	14	$self->table2
	15	]
	16	);
test cleranup 5e1d777 Yuki Kimoto authored on 2011-08-10	17	}
	18
	19	1;