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 {
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;
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