kimoto/DBIx-Custom at 96ab27901e85ef7c51e69d54977b10a5de47e8b4 ・ Gitprep

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

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

19 lines | 0.255kb

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 => [
finished oracle test fe00537 Yuki Kimoto authored on 2011-08-15	13	$self->table1,
	14	$self->table2
test cleanup f3bb824 Yuki Kimoto authored on 2011-08-15	15	]
	16	);
	17	}
	18
	19	1;