Newer Older
13 lines | 0.236kb
support model full-qualified...
Yuki Kimoto authored on 2012-03-01
1
package MyModel8::main::table1;
2
use MyModel8 -base;
3

            
improved test
Yuki Kimoto authored on 2012-03-01
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...
Yuki Kimoto authored on 2012-03-01
11

            
12

            
13
1;