Skip to content
Snippets Groups Projects
Commit 755d03a6 authored by Eugene Kulesha's avatar Eugene Kulesha
Browse files

translation id can be passed when a new ProteinFeature is created so it can be...

translation id can be passed when a new ProteinFeature is created so it can be later stored in the database (protein_feature table)
parent f5ca85a3
No related branches found
No related tags found
No related merge requests found
...@@ -68,7 +68,7 @@ sub new { ...@@ -68,7 +68,7 @@ sub new {
my $class = ref($caller) || $caller; 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(@_); my $self = $class->SUPER::new(@_);
...@@ -76,6 +76,7 @@ sub new { ...@@ -76,6 +76,7 @@ sub new {
$self->{'strand'} = 0; $self->{'strand'} = 0;
$self->{'idesc'} = $idesc || ''; $self->{'idesc'} = $idesc || '';
$self->{'interpro_ac'} = $interpro_ac || ''; $self->{'interpro_ac'} = $interpro_ac || '';
$self->{'translation_id'} = $translation_id || '';
return $self; return $self;
} }
...@@ -140,4 +141,23 @@ sub interpro_ac{ ...@@ -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; 1;
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment