Content - a8e9fcda85f15442bf20af1e11a93e91d9d1e27f - 8dfb9cc/lib/perl/BAP/DB/GeneTag.pm

swh:1:snp:5789d5563ae0ff1fac9d4620526a6e02863df326

Tip revision: 93da51e35828f2ea7bc04892b0081f2f359d3cc7 authored by Thomas Mooney on 15 May 2014, 14:09:15 UTC
Ensure the value of "show" is set before listing.

Tip revision: 93da51e

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$