Newer Older
13 lines | 0.222kb
add experimental DBIx::Custo...
Yuki Kimoto authored on 2011-02-24
1
package MyModel5::table1_2;
2

            
3
use strict;
4
use warnings;
5

            
6
use base 'MyModel5';
7

            
8
__PACKAGE__->attr(name => 'table1_3');
9
__PACKAGE__->attr(table => 'table1');
10

            
11
__PACKAGE__->attr('primary_key' => sub { ['key1', 'key2'] });
12

            
13
1;