added support for extra_data column in dna_align_feature and protein_feature tables

modules/Bio/EnsEMBL/FeaturePair.pm

@@ -119,10 +119,10 @@ sub new {
   my $self = $class->SUPER::new(@_);
 
   my ($hstart,$hend,$hstrand,$percent_id,$score, $species, $hspecies,
-      $p_value, $hseqname, $f1,$f2, $coverage, $hcoverage, $group_id,$level_id, $external_db_id) =
+      $p_value, $hseqname, $f1,$f2, $coverage, $hcoverage, $group_id,$level_id, $external_db_id, $extra_data) =
     rearrange(['HSTART','HEND','HSTRAND','PERCENT_ID','SCORE','SPECIES',
                'HSPECIES', 'P_VALUE', 'HSEQNAME', 'FEATURE1','FEATURE2',
-               'COVERAGE', 'HCOVERAGE', 'GROUP_ID','LEVEL_ID', 'EXTERNAL_DB_ID'], @_);
+               'COVERAGE', 'HCOVERAGE', 'GROUP_ID','LEVEL_ID', 'EXTERNAL_DB_ID', 'EXTRA_DATA'], @_);
 
   if(defined($hstart) && defined($hend) && ($hend < $hstart)) {
     throw('HSTART must be less than or equal to HEND');
@@ -146,6 +146,8 @@ sub new {
   $self->{'group_id'}   = $group_id;
   $self->{'level_id'}   = $level_id;
   $self->{'external_db_id'} = $external_db_id;
+  $self->{'extra_data'} = $extra_data;
+
   #
   # Feature1 and Feature2 arg handling for backwards compatibility
   #
@@ -921,7 +923,10 @@ sub hend_phase {
   return $self->{_hend_phase};
 }
 
-
-
+sub extra_data {
+  my $self = shift;
+  $self->{'extra_data'} = shift if(@_);
+  return $self->{'extra_data'};
+}
 
 1;