Skip to content
Snippets Groups Projects
Commit a860ed33 authored by Dan Staines's avatar Dan Staines
Browse files

changed add_gene to be add_Gene for consistency with rest of the API

parent 98eeee7e
No related branches found
No related tags found
No related merge requests found
...@@ -236,7 +236,7 @@ sub get_all_Genes { ...@@ -236,7 +236,7 @@ sub get_all_Genes {
} }
return $self->{_gene_array}; return $self->{_gene_array};
} }
=head2 add_gene =head2 add_Gene
Arg [1] : Bio::EnsEMBL::Gene - gene to attach to this polycistronic transcript Arg [1] : Bio::EnsEMBL::Gene - gene to attach to this polycistronic transcript
Example : $operon->add_gene($gene); Example : $operon->add_gene($gene);
...@@ -246,13 +246,28 @@ sub get_all_Genes { ...@@ -246,13 +246,28 @@ sub get_all_Genes {
Status : Stable Status : Stable
=cut =cut
sub add_gene { sub add_Gene {
my ($self,$gene) = @_; my ($self,$gene) = @_;
assert_ref($gene,'Bio::EnsEMBL::Gene'); assert_ref($gene,'Bio::EnsEMBL::Gene');
push @{$self->get_all_Genes()},$gene; push @{$self->get_all_Genes()},$gene;
return; return;
} }
=head2 add_gene
Arg [1] : Bio::EnsEMBL::Gene - gene to attach to this polycistronic transcript
Example : $operon->add_gene($gene);
Description: Attach a gene to this polycistronic transcript
Exceptions : if argument is not Bio::EnsEMBL::Gene
Caller : general
Status : DEPRECATED - use add_Gene
=cut
sub add_gene {
my ($self,$gene) = @_;
deprecate('Call is deprecated. Use $self->add_Gene()');
return $self->add_Gene($gene);
}
=head2 add_DBEntry =head2 add_DBEntry
Arg [1] : Bio::EnsEMBL::DBEntry $dbe Arg [1] : Bio::EnsEMBL::DBEntry $dbe
......
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