Content - a8e9fcda85f15442bf20af1e11a93e91d9d1e27f - b5ae4f9/lib/perl/BAP/DB/GeneTag.pm

swh:1:snp:5789d5563ae0ff1fac9d4620526a6e02863df326

Tip revision: fabceece28886a94466651d1832ee94bd4eb4131 authored by Thomas Mooney on 29 July 2014, 14:26:50 UTC
Also return if genome_length came back 0 to avoid dividing by it.

Tip revision: fabceec

GeneTag.pm

package BAP::DB::GeneTag;

use base 'BAP::DB::DBI';
use DBD::Oracle qw(:ora_types);

__PACKAGE__->table('gene_tag');
__PACKAGE__->columns( All => qw(gene_id tag_id) );

# has a relationships?

__PACKAGE__->has_a('tag_id' => BAP::DB::Tag, );

1;

# $Id$