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

swh:1:snp:5789d5563ae0ff1fac9d4620526a6e02863df326

Tip revision: 820c80913cee92c1547434af67569852f5116f98 authored by dmorton on 17 January 2014, 04:53:04 UTC
Start using TestHelpers::Data to get at shared test data

Tip revision: 820c809

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$