package GO::GOGeneBlastInfo;

sub new
{
    my ($type,%input) = @_;
    my $self = {};
    $self->{'hitrank'}=$input{'rank'};
    $self->{'hitsignificance'}=$input{'significance'};
    $self->{'hitscore'}=$input{'score'};
    $self->{'hitlength'}=$input{'length'};
    bless $self, $type;
    return $self;

}


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

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

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

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

1;