ken/DBIx-Custom at f3bb824d4a23160e7c8df15fa3e9c61b023c3bd9 ・ Gitprep

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

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

21 lines | 0.289kb

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