Mercurial > repos > mahtabm > ensembl
comparison variant_effect_predictor/Bio/SeqFeature/Gene/ExonI.pm @ 0:1f6dce3d34e0
Uploaded
author | mahtabm |
---|---|
date | Thu, 11 Apr 2013 02:01:53 -0400 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:1f6dce3d34e0 |
---|---|
1 # $Id: ExonI.pm,v 1.6 2002/10/22 07:38:41 lapp Exp $ | |
2 # | |
3 # BioPerl module for Bio::SeqFeature::Gene::ExonI | |
4 # | |
5 # Cared for by Hilmar Lapp <hlapp@gmx.net> | |
6 # | |
7 # Copyright Hilmar Lapp | |
8 # | |
9 # You may distribute this module under the same terms as perl itself | |
10 | |
11 # POD documentation - main docs before the code | |
12 | |
13 =head1 NAME | |
14 | |
15 Bio::SeqFeature::Gene::ExonI - Interface for a feature representing an exon | |
16 | |
17 =head1 SYNOPSIS | |
18 | |
19 See documentation of methods. | |
20 | |
21 =head1 DESCRIPTION | |
22 | |
23 A feature representing an exon. An exon in this definition is | |
24 transcribed and at least for one particular transcript not spliced out | |
25 of the pre-mRNA. However, it does not necessarily code for amino acid. | |
26 | |
27 =head1 FEEDBACK | |
28 | |
29 =head2 Mailing Lists | |
30 | |
31 User feedback is an integral part of the evolution of this | |
32 and other Bioperl modules. Send your comments and suggestions preferably | |
33 to one of the Bioperl mailing lists. | |
34 Your participation is much appreciated. | |
35 | |
36 bioperl-l@bioperl.org - General discussion | |
37 http://bio.perl.org/MailList.html - About the mailing lists | |
38 | |
39 =head2 Reporting Bugs | |
40 | |
41 Report bugs to the Bioperl bug tracking system to help us keep track | |
42 the bugs and their resolution. | |
43 Bug reports can be submitted via email or the web: | |
44 | |
45 bioperl-bugs@bio.perl.org | |
46 http://bugzilla.bioperl.org/ | |
47 | |
48 =head1 AUTHOR - Hilmar Lapp | |
49 | |
50 Email hlapp@gmx.net | |
51 | |
52 Describe contact details here | |
53 | |
54 =head1 APPENDIX | |
55 | |
56 The rest of the documentation details each of the object methods. | |
57 Internal methods are usually preceded with a _ | |
58 | |
59 =cut | |
60 | |
61 | |
62 # Let the code begin... | |
63 | |
64 | |
65 package Bio::SeqFeature::Gene::ExonI; | |
66 use vars qw(@ISA); | |
67 use strict; | |
68 | |
69 use Carp; | |
70 use Bio::SeqFeatureI; | |
71 | |
72 @ISA = qw(Bio::SeqFeatureI); | |
73 | |
74 | |
75 =head2 is_coding | |
76 | |
77 Title : is_coding | |
78 Usage : if($exon->is_coding()) { | |
79 # do something | |
80 } | |
81 Function: Whether or not the exon codes for amino acid. | |
82 Returns : TRUE if the object represents a feature translated into protein, | |
83 and FALSE otherwise. | |
84 Args : | |
85 | |
86 | |
87 =cut | |
88 | |
89 sub is_coding { | |
90 my ($self) = @_; | |
91 $self->throw_not_implemented(); | |
92 } | |
93 | |
94 =head2 cds | |
95 | |
96 Title : cds() | |
97 Usage : $cds = $exon->cds(); | |
98 Function: Get the coding sequence of the exon as a sequence object. | |
99 | |
100 The returned sequence object must be in frame 0, i.e., the first | |
101 base starts a codon. | |
102 | |
103 An implementation may return undef, indicating that a coding | |
104 sequence does not exist, e.g. for a UTR (untranslated region). | |
105 | |
106 Returns : A L<Bio::PrimarySeqI> implementing object. | |
107 Args : | |
108 | |
109 | |
110 =cut | |
111 | |
112 sub cds { | |
113 my ($self) = @_; | |
114 $self->throw_not_implemented(); | |
115 } | |
116 | |
117 1; |