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