diff --git a/modules/Bio/EnsEMBL/ProteinFeature.pm b/modules/Bio/EnsEMBL/ProteinFeature.pm index 9155e18edb610e50db6f8610e6a4b686b23b64cf..ddc09f3f05c0367702d697a10ccf76d0648a206f 100755 --- a/modules/Bio/EnsEMBL/ProteinFeature.pm +++ b/modules/Bio/EnsEMBL/ProteinFeature.pm @@ -68,7 +68,7 @@ sub new { my $class = ref($caller) || $caller; - my ($idesc, $interpro_ac) = rearrange(['IDESC', 'INTERPRO_AC'], @_); + my ($idesc, $interpro_ac, $translation_id) = rearrange(['IDESC', 'INTERPRO_AC', 'TRANSLATION_ID'], @_); my $self = $class->SUPER::new(@_); @@ -76,6 +76,7 @@ sub new { $self->{'strand'} = 0; $self->{'idesc'} = $idesc || ''; $self->{'interpro_ac'} = $interpro_ac || ''; + $self->{'translation_id'} = $translation_id || ''; return $self; } @@ -140,4 +141,23 @@ sub interpro_ac{ } +=head2 idesc + + Arg [1] : (optional) string The interpro description + Example : print $protein_feature->idesc(); + Description: Getter/Setter for the interpro description of this protein + feature. + Returntype : string + Exceptions : none + Caller : general + Status : Stable + +=cut + +sub translation_id{ + my $self = shift; + $self->{'translation_id'} = shift if(@_); + return $self->{'translation_id'}; +} + 1;