support model full-qualified...
|
1 |
package MyModel8::main::table1; |
2 |
use MyModel8 -base; |
|
3 | ||
improved test
|
4 |
has join => sub { |
added t/common-mysql-qualifi...
|
5 |
my $self = shift; |
6 |
|
|
7 |
my $alias = 'main.table2_alias'; |
|
8 |
$alias =~ s/\./_/g; |
|
9 |
|
|
10 |
return ["left join main.table2 $alias on main.table1.key1 = $alias.key1"]; |
|
improved test
|
11 |
}; |
support model full-qualified...
|
12 | |
13 | ||
14 |
1; |