package HIT;  

sub new  {
    
    my $class = shift;
    my $class = ref($class) || $class;
    
    my $self = {};
    
    $self->{Name} = "Default";
    $self->{Length} = 0;
    $self->{Score} = 0;
    $self->{Expect} = 0;
    $self->{Ident} =  "Default";
    $self->{Strand} = "Default";
    $self->{Match} = "Deafult";
    bless ($self,$class);
    return $self;
    }