lib/CXGN/CDBI/SGN/Accession.pm

   1 package CXGN::CDBI::SGN::Accession;
   2
   3 =head1 DATA FIELDS
   4
   5   Primary Keys:
   6       accession_id
   7
   8   Columns:
   9       accession_id
  10       organism_id
  11       common_name
  12       accession_name_id
  13
  14   Sequence:
  15       (sgn base schema).accession_accession_id_seq
  16
  17 =cut
  18
  19 use base 'CXGN::CDBI::Class::DBI';
  20 __PACKAGE__->table(__PACKAGE__->qualify_schema('sgn') . '.accession');
  21
  22 our @primary_key_names =
  23     qw/
  24       accession_id
  25       /;
  26
  27 our @column_names =
  28     qw/
  29       accession_id
  30       organism_id
  31       common_name
  32       accession_name_id
  33       /;
  34
  35 __PACKAGE__->columns( Primary => @primary_key_names, );
  36 __PACKAGE__->columns( All     => @column_names,      );
  37 __PACKAGE__->sequence( __PACKAGE__->base_schema('sgn').'.accession_accession_id_seq' );
  38
  39
  40 __PACKAGE__->has_a('accession_name_id' => 'CXGN::CDBI::SGN::AccessionNames');
  41
  42 sub accession_name {
  43   my $self = shift;
  44   return $self->accession_name_id->accession_name;
  45 }
  46
  47 ###
  48 1;#do not remove
  49 ###
  50