support model full-qualified...
|
1 |
package MyModel8::main::table1; |
2 |
use MyModel8 -base; |
|
3 | ||
improved test
|
4 |
has join => sub { |
5 |
my $self = shift; |
|
6 |
|
|
7 |
my ($q, $p) = $self->_qp; |
|
8 |
|
|
9 |
return ["left join main.table2 main_table2_alias on main.table1.key1 = main_table2_alias.key1"] |
|
10 |
}; |
|
support model full-qualified...
|
11 | |
12 | ||
13 |
1; |