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