package Sub::Person; use base qw(Super::Person); __PACKAGE__->has_many( 'organisations', 'Sub::Organisation', 'person' );