add experimental DBIx::Custo...
|
1 |
package MyModel5::table1; |
2 | ||
3 |
use strict; |
|
4 |
use warnings; |
|
5 | ||
6 |
use base 'MyModel5'; |
|
7 | ||
8 |
__PACKAGE__->attr('primary_key' => sub { ['key1', 'key2'] }); |
|
9 | ||
10 |
1; |