package MyModel5::table1; use MyModel5 -base; has primary_key => sub { ['key1', 'key2'] }; 1;