test cleranup
|
1 |
package MyModel8::table1; |
2 |
use MyModel8 -base; |
|
3 | ||
added t/common-mysql-qualifi...
|
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 cleranup
|
12 | |
13 | ||
14 |
1; |