package testDB::Member; use base qw / DBIx::Class /; __PACKAGE__->load_components(qw/ PK::Auto Core /); __PACKAGE__->table('members'); __PACKAGE__->add_columns(qw/ id name email password enabled /); __PACKAGE__->set_primary_key(qw/ id /); __PACKAGE__->has_many(profiles => 'testDB::Profile', 'member_id'); __PACKAGE__->has_many(assigned_roles => 'testDB::AssignedRole', 'member_id'); 1; package testDB::Profile; use base qw / DBIx::Class /; __PACKAGE__->load_components(qw/ PK::Auto Core /); __PACKAGE__->table('profiles'); __PACKAGE__->add_columns(qw/ id member_id server name /); __PACKAGE__->set_primary_key(qw/ id /); __PACKAGE__->belongs_to(member => 'testDB::Member', 'member_id'); __PACKAGE__->has_many(assigned_roles => 'testDB::AssignedRole', 'profile_id'); 1; package testDB::AssignedRole; use base qw / DBIx::Class /; __PACKAGE__->load_components(qw/ PK::Auto Core /); __PACKAGE__->table('assigned_roles'); __PACKAGE__->add_columns(qw/ id member_id profile_id role_id /); __PACKAGE__->set_primary_key(qw/ id /); __PACKAGE__->belongs_to(member => 'testDB::Member', 'member_id'); __PACKAGE__->belongs_to(profile => 'testDB::Profile', 'profile_id'); __PACKAGE__->belongs_to(role => 'testDB::Role', 'role_id'); 1; package testDB::Role; use base qw / DBIx::Class /; __PACKAGE__->load_components(qw/ PK::Auto Core /); __PACKAGE__->table('roles'); __PACKAGE__->add_columns(qw/ id tag description enabled /); __PACKAGE__->set_primary_key(qw/ id /); __PACKAGE__->has_one(role_type => 'testDB::RoleType', 'role_type_id'); __PACKAGE__->has_many(assigned_roles => 'testDB::AssignedRole', 'role_id'); 1; package testDB::RoleType; use base qw / DBIx::Class /; __PACKAGE__->load_components(qw/ PK::Auto Core /); __PACKAGE__->table('role_types'); __PACKAGE__->add_columns(qw/ id name /); __PACKAGE__->set_primary_key(qw/ id /); 1;