kimoto/DBIx-Custom at 06648ac7269976f665f1758d0270bd043c0f75a2 ・ Gitprep

DBIx-Custom / t / common_uc / MyModel8 / TABLE1.pm /

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

14 lines | 0.218kb

test cleanup f3bb824 Yuki Kimoto authored on 2011-08-15	1	package MyModel8::TABLE1;
	2	use MyModel8 -base;
	3
added t/common-mysql-qualifi... 06648ac Yuki Kimoto authored on 2012-03-02	4	has join => sub {
	5	my $self = shift;
	6
	7	my $alias = 'TABLE2_ALIAS';
	8	$alias =~ s/\./_/g;
	9
	10	return ["left join TABLE2 $alias on TABLE1.KEY1 = $alias.KEY1"];
	11	};
test cleanup f3bb824 Yuki Kimoto authored on 2011-08-15	12
	13
	14	1;