annotate variant_effect_predictor/Bio/EnsEMBL/IdMapping/TinyTranscript.pm @ 3:d30fa12e4cc5 default tip

Merge heads 2:a5976b2dce6f and 1:09613ce8151e which were created as a result of a recently fixed bug.
author devteam <devteam@galaxyproject.org>
date Mon, 13 Jan 2014 10:38:30 -0500
parents 1f6dce3d34e0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
1 =head1 LICENSE
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
2
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
3 Copyright (c) 1999-2012 The European Bioinformatics Institute and
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
4 Genome Research Limited. All rights reserved.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
5
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
6 This software is distributed under a modified Apache license.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
7 For license details, please see
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
8
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
9 http://www.ensembl.org/info/about/code_licence.html
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
10
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
11 =head1 CONTACT
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
12
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
13 Please email comments or questions to the public Ensembl
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
14 developers list at <dev@ensembl.org>.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
15
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
16 Questions may also be sent to the Ensembl help desk at
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
17 <helpdesk@ensembl.org>.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
18
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
19 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
20
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
21 =head1 NAME
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
22
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
23 Bio::EnsEMBL::IdMapping::TinyTranscript - lightweight transcript object
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
24
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
25 =head1 SYNOPSIS
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
26
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
27 # fetch a transcript from the db and create a lightweight
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
28 # transcript object from it
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
29 my $tr = $transcript_adaptor->fetch_by_stable_id('ENST000345437');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
30 my $lightweight_tr =
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
31 Bio::EnsEMBL::IdMapping::TinyTranscript->new_fast( [
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
32 $tr->dbID, $tr->stable_id,
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
33 $tr->version, $tr->created_date,
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
34 $tr->modified_date, $tr->start,
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
35 $tr->end, $tr->strand,
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
36 $tr->length, md5_hex( $tr->spliced_seq ),
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
37 ( $tr->is_known ? 1 : 0 ),
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
38 ] );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
39
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
40 =head1 DESCRIPTION
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
41
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
42 This is a lightweight transcript object for the stable Id mapping. See
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
43 the documentation in TinyFeature for general considerations about its
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
44 design.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
45
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
46 =head1 METHODS
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
47
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
48 start
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
49 end
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
50 strand
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
51 length
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
52 seq_md5_sum
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
53 is_known
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
54 add_Translation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
55 translation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
56 add_Exon
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
57 get_all_Exons
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
58
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
59 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
60
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
61 package Bio::EnsEMBL::IdMapping::TinyTranscript;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
62
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
63 # internal data structure (array indices):
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
64 #
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
65 # 0-4 see TinyFeature
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
66 # 5 start
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
67 # 6 end
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
68 # 7 strand
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
69 # 8 length
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
70 # 9 seq_md5_sum
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
71 # 10 is_known
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
72 # 11 translation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
73 # 12 [exons]
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
74 # 13 biotype
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
75
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
76
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
77 use strict;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
78 use warnings;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
79 no warnings 'uninitialized';
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
80
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
81 use Bio::EnsEMBL::IdMapping::TinyFeature;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
82 our @ISA = qw(Bio::EnsEMBL::IdMapping::TinyFeature);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
83
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
84 use Bio::EnsEMBL::Utils::Exception qw(throw warning);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
85
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
86
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
87 =head2 start
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
88
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
89 Arg[1] : (optional) Int - the transcript's start coordinate
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
90 Description : Getter/setter for the transcript's start coordinate.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
91 Return type : Int
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
92 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
93 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
94 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
95 : under development
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
96
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
97 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
98
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
99 sub start {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
100 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
101 $self->[5] = shift if (@_);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
102 return $self->[5];
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
103 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
104
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
105
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
106 =head2 end
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
107
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
108 Arg[1] : (optional) Int - the transcript's end coordinate
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
109 Description : Getter/setter for the transcript's end coordinate.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
110 Return type : Int
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
111 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
112 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
113 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
114 : under development
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
115
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
116 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
117
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
118 sub end {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
119 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
120 $self->[6] = shift if (@_);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
121 return $self->[6];
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
122 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
123
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
124
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
125 =head2 strand
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
126
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
127 Arg[1] : (optional) Int - the transcript's strand
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
128 Description : Getter/setter for the transcript's strand.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
129 Return type : Int
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
130 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
131 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
132 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
133 : under development
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
134
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
135 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
136
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
137 sub strand {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
138 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
139 $self->[7] = shift if (@_);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
140 return $self->[7];
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
141 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
142
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
143
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
144 =head2 length
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
145
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
146 Arg[1] : (optional) Int - the transcript's length
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
147 Description : Getter/setter for the transcript's length. Note that this is
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
148 *not* the distance between start and end, but rather the sum of
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
149 the lengths of all exons.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
150 Return type : Int
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
151 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
152 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
153 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
154 : under development
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
155
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
156 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
157
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
158 sub length {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
159 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
160 $self->[8] = shift if (@_);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
161 return $self->[8];
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
162 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
163
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
164
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
165 =head2 seq_md5_sum
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
166
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
167 Arg[1] : (optional) String - the md5 digest of the transcript's sequence
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
168 Description : Getter/setter for the md5 digest of the transcript's sequence.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
169 Note that when used as a setter, you are expected to pass a
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
170 digest, not the raw sequence (i.e. the digest is not created for
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
171 you).
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
172 Return type : String
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
173 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
174 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
175 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
176 : under development
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
177
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
178 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
179
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
180 sub seq_md5_sum {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
181 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
182 $self->[9] = shift if (@_);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
183 return $self->[9];
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
184 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
185
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
186
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
187 =head2 is_known
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
188
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
189 Arg[1] : (optional) Boolean - the transcript's "known" status
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
190 Description : Getter/setter for the transcript's "known" status.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
191 Return type : Boolean
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
192 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
193 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
194 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
195 : under development
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
196
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
197 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
198
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
199 sub is_known {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
200 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
201 $self->[10] = shift if (@_);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
202 return $self->[10];
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
203 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
204
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
205
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
206 =head2 add_Translation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
207
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
208 Arg[1] : Bio::EnsEMBL::IdMapping::TinyTranslation $tl - the translation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
209 to add
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
210 Example : $tiny_transcript->add_Translation($tiny_translation);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
211 Description : Adds a translation to this transcript.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
212 Return type : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
213 Exceptions : thrown on wrong or missing argument
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
214 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
215 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
216 : under development
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
217
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
218 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
219
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
220 sub add_Translation {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
221 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
222 my $tl = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
223
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
224 unless ($tl && $tl->isa('Bio::EnsEMBL::IdMapping::TinyTranslation')) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
225 throw('Need a Bio::EnsEMBL::IdMapping::TinyTranslation.');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
226 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
227
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
228 $self->[11] = $tl;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
229 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
230
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
231
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
232 =head2 translation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
233
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
234 Description : Getter for the transcript's translation.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
235 Return type : Bio::EnsEMBL::IdMapping::TinyTranslation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
236 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
237 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
238 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
239 : under development
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
240
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
241 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
242
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
243 sub translation {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
244 return $_[0]->[11];
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
245 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
246
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
247
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
248 =head2 add_Exon
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
249
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
250 Arg[1] : Bio::EnsEMBL::IdMapping::TinyExon $exon - the exon to add
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
251 Example : $tiny_transcript->add_Exon($tiny_exon);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
252 Description : Adds an exon to this transcript.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
253 Return type : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
254 Exceptions : thrown on wrong or missing argument
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
255 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
256 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
257 : under development
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
258
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
259 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
260
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
261 sub add_Exon {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
262 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
263 my $exon = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
264
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
265 unless ($exon && $exon->isa('Bio::EnsEMBL::IdMapping::TinyExon')) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
266 throw('Need a Bio::EnsEMBL::IdMapping::TinyExon.');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
267 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
268
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
269 push @{ $self->[12] }, $exon;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
270 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
271
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
272
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
273 =head2 get_all_Exons
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
274
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
275 Example : foreach my $exon (@{ $tiny_transcript->get_all_Exons }) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
276 # do something with exon
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
277 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
278 Description : Returns all exons attached to that transcript.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
279 Return type : Arrayref of Bio::EnsEMBL::IdMapping::TinyExon objects
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
280 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
281 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
282 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
283 : under development
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
284
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
285 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
286
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
287 sub get_all_Exons {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
288 return $_[0]->[12] || [];
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
289 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
290
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
291 sub biotype {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
292 my $self = shift;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
293 $self->[13] = shift if (@_);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
294 return $self->[13];
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
295 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
296
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
297
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
298 1;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
299