Add get_Gene() method to CDS, ExtonTranscript and UTR objects to match...

Add get_Gene() method to CDS, ExtonTranscript and UTR objects to match Transcript method, for consistency in accessing.

modules/Bio/EnsEMBL/CDS.pm

@@ -122,6 +122,27 @@ sub transcript {
   return $self->{'transcript'};
 }
 
+=head2 get_Gene
+
+  Description: Get the gene associated with the ExonTranscript,
+               if a transcript has been set
+  Returntype : Bio::EnsEMBL::Gene or undef
+  Exceptions : none
+  Caller     : general
+  Status     : Stable
+
+=cut
+
+sub get_Gene {
+    my $self = shift;
+
+    if($self->{'transcript'}) {
+	return $self->{'transcript'}->get_Gene();
+    }
+
+    return;
+}
+
 =head2 translation_id
 
   Arg [1]    : (optional) string $translation_id

modules/Bio/EnsEMBL/ExonTranscript.pm

@@ -132,6 +132,26 @@ sub transcript {
   return ( $self->{'transcript'} );
 }
 
+=head2 get_Gene
+
+  Description: Get the gene associated with the ExonTranscript,
+               if a transcript has been set
+  Returntype : Bio::EnsEMBL::Gene or undef
+  Exceptions : none
+  Caller     : general
+  Status     : Stable
+
+=cut
+
+sub get_Gene {
+    my $self = shift;
+
+    if($self->{'transcript'}) {
+	return $self->{'transcript'}->get_Gene();
+    }
+
+    return;
+}
 
 =head2 rank
 

modules/Bio/EnsEMBL/UTR.pm

@@ -122,6 +122,26 @@ sub transcript {
   return $self->{'transcript'};
 }
 
+=head2 get_Gene
+
+  Description: Get the gene associated with the ExonTranscript,
+               if a transcript has been set
+  Returntype : Bio::EnsEMBL::Gene or undef
+  Exceptions : none
+  Caller     : general
+  Status     : Stable
+
+=cut
+
+sub get_Gene {
+    my $self = shift;
+
+    if($self->{'transcript'}) {
+	return $self->{'transcript'}->get_Gene();
+    }
+
+    return;
+}
 
 =head2 type