Newer Older
14 lines | 0.239kb
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 {
added t/common-mysql-qualifi...
Yuki Kimoto authored on 2012-03-02
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
Yuki Kimoto authored on 2012-03-01
11
};
support model full-qualified...
Yuki Kimoto authored on 2012-03-01
12

            
13

            
14
1;