package GO::GOGeneAssociationBlast;
use GO::GOGeneAssociation;
@ISA = ("GO::GOGeneAssociation");

sub new
{
    my ($self, $goid,$goterm,$evcode,$spid,$spsymbol,$spdescriptor,$externalid) = @_;

    my $gga = $self->SUPER::new(goid => $goid,goterm => $goterm,evcode => $evcode);
    $gga->{'extdb'}=undef;
    $gga->{'extdbid'}=undef;
    $gga->{'spid'}=$spid;
    $gga->{'spsymbol'}=$spsymbol;
    $gga->{'spdescriptor'}=$spdescriptor;
    $gga->{'externalid'}=$externalid;
    $gga->{'blastinfo'}=undef;
    return $gga;
}

sub blastinfo {
    my $obj = shift;
    @_ ? $obj->{blastinfo} = shift
       : $obj->{blastinfo};
}

sub blastgenename {
    my $obj = shift;
    @_ ? $obj->{blastgenename} = shift
       : $obj->{blastgenename};
}

sub spid {
    my $obj = shift;
    @_ ? $obj->{spid} = shift
       : $obj->{spid};
}

sub spsymbol {
    my $obj = shift;
    @_ ? $obj->{spsymbol} = shift
       : $obj->{spsymbol};
}

sub spdescriptor {
    my $obj = shift;
    @_ ? $obj->{spdescriptor} = shift
       : $obj->{spdescriptor};
}

sub externalid {
    my $obj = shift;
    @_ ? $obj->{externalid} = shift
       : $obj->{externalid};
}

sub extdb {
    my $obj = shift;
    @_ ? $obj->{extdb} = shift
       : $obj->{extdb};
}

sub extdbid {
    my $obj = shift;
    @_ ? $obj->{extdbid} = shift
       : $obj->{extdbid};
}