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

swh:1:snp:5789d5563ae0ff1fac9d4620526a6e02863df326

Tip revision: 0a25a7a0a68e795ee2910f5c591cacd8e16a7f23 authored by Nathaniel Nutter on 27 February 2014, 00:29:09 UTC
prototype logger to split messages (by type)

Tip revision: 0a25a7a

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$