Bio::EnsEMBL::Analysis::Tools::Otter::DnaAlignFeature - Ensembl specific dna-dna pairwise alignment feature

  This module inherits from the standard Bio::EnsEMBL::DnaDnaAlignFeature
  module. This module is required when reading DNA align features out
  of the Otter databases when one would like to attach the 
  dna_align_feature_history object to a dna_align_feature.

  In this module:
  The 'new' method from Bio::EnsEMBL::DnaDnaAlignFeature has been called
  to fetch all standard dna_align_feature attributes, and then the
  dna_align_feature_history object is also attached.

  my $self = shift;

  if (@_) {
    my $dafh = shift;
    if (defined $dafh && (!ref $dafh || ! $dafh->isa("Bio::EnsEMBL::Analysis::Tools::Otter::DnaAlignFeatureHistory"))) {
      throw("dna_align_feature_history argument must be a Bio::EnsEMBL::Analysis::Tools::Otter::DnaAlignFeatureHistory");
    }
    $self->{'dna_align_feature_history'} = $dafh;
  }

  return $self->{'dna_align_feature_history'};
}


1;

  my $caller = shift;

  my $class = ref($caller) || $caller;

  my $self = $class->SUPER::new(@_);

  my ($dna_align_feature_history) = rearrange([qw(DNA_ALIGN_FEATURE_HISTORY)], @_);

  # get/set the dna_align_feature_history
  if (!defined $dna_align_feature_history){
    throw("dna_align_feature_history not defined");
  }
  $self->dna_align_feature_history($dna_align_feature_history);

  return $self;