my ($class, @args) = @_;
  my $self = bless {}, $class;

  my ($query, $target, $qstart, $qend, $tstart, $tend, $percent, $strand) = 
    rearrange(['QUERY',
               'TARGET',
               'QSTART',
               'QEND',
               'TSTART',
               'TEND', 
               'PERCENT',
               'STRAND'],@args);
  
  throw("No query") unless defined $query;
  $self->query($query);

  throw("No target") unless defined $target;
  $self->target($target);

  throw("No query start") unless defined $qstart;
  $self->qstart($qstart);

  throw("No query end") unless defined $qend;
  $self->qend($qend);

  throw("No target start") unless defined $tstart;
  $self->tstart($tstart);

  throw("No target end") unless defined $tend;
  $self->tend($tend);

  throw("No percent") unless defined $percent;
  $self->percent($percent);

  throw("No strand") unless defined $strand;
  $self->strand($strand);

  return $self;

  my ($self,$arg) = @_;
  if ($arg) {
    $self->{'percent'} = $arg;
  }
  return $self->{'percent'};

  my ($self,$arg) = @_;
  if ($arg) {
    $self->{'qend'} = $arg;
  }
  return $self->{'qend'};

  my ($self,$arg) = @_;
  if ($arg) {
    $self->{'qstart'} = $arg;
  }
  return $self->{'qstart'};

  my ($self,$arg) = @_;
  if ($arg) {
    $self->{'query'} = $arg;
  }
  return $self->{'query'};

  my ($self,$arg) = @_;
  if ($arg) {
    $self->{'strand'} = $arg;
  }
  return $self->{'strand'};
}



1;

  my ($self,$arg) = @_;
  if ($arg) {
    $self->{'target'} = $arg;
  }
  return $self->{'target'};

  my ($self,$arg) = @_;
  if ($arg) {
    $self->{'tend'} = $arg;
  }
  return $self->{'tend'};

  my ($self,$arg) = @_;
  if ($arg) {
    $self->{'tstart'} = $arg;
  }
  return $self->{'tstart'};