package Check::Model::Check; use base 'DBIx::Class'; __PACKAGE__->load_components( 'Core' ); __PACKAGE__->table( 'checks' ); __PACKAGE__->add_columns( qw/ id status descr / ); __PACKAGE__->set_primary_key( qw/ id / ); __PACKAGE__->belongs_to( status => 'Check::Model::Status' ); 1; package Check::Model::Status; use base 'DBIx::Class'; __PACKAGE__->load_components( 'Core' ); __PACKAGE__->table( 'status' ); __PACKAGE__->add_columns( qw/ id descr / ); __PACKAGE__->set_primary_key( qw/ id / ); 1;