Newer Older
14 lines | 0.218kb
test cleranup
Yuki Kimoto authored on 2011-08-10
1
package MyModel8::table1;
2
use MyModel8 -base;
3

            
added t/common-mysql-qualifi...
Yuki Kimoto authored on 2012-03-02
4
has join => sub {
5
  my $self = shift;
6
  
7
  my $alias = 'table2_alias';
8
  $alias =~ s/\./_/g;
9
  
10
  return ["left join table2 $alias on table1.key1 = $alias.key1"];
11
};
test cleranup
Yuki Kimoto authored on 2011-08-10
12

            
13

            
14
1;