comparison variant_effect_predictor/Bio/SeqFeature/Gene/Promoter.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: Promoter.pm,v 1.4 2002/10/22 07:45:20 lapp Exp $
2 #
3 # BioPerl module for Bio::SeqFeature::Gene::Promoter
4 #
5 # Cared for by David Block <dblock@gene.pbi.nrc.ca>
6 #
7 # Copyright David Block
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::Promoter - Describes a promotor
16
17 =head1 SYNOPSIS
18
19 Give standard usage here
20
21 =head1 DESCRIPTION
22
23 Describe the object here
24
25 =head1 FEEDBACK
26
27 =head2 Mailing Lists
28
29 User feedback is an integral part of the evolution of this and other
30 Bioperl modules. Send your comments and suggestions preferably to
31 the Bioperl mailing list. Your participation is much appreciated.
32
33 bioperl-l@bioperl.org - General discussion
34 http://bioperl.org/MailList.shtml - About the mailing lists
35
36 =head2 Reporting Bugs
37
38 Report bugs to the Bioperl bug tracking system to help us keep track
39 of the bugs and their resolution. Bug reports can be submitted via
40 email or the web:
41
42 bioperl-bugs@bioperl.org
43 http://bugzilla.bioperl.org/
44
45 =head1 AUTHOR - David Block
46
47 Email dblock@gene.pbi.nrc.ca
48
49 Describe contact details here
50
51 =head1 CONTRIBUTORS
52
53 Additional contributors names and emails here
54
55 =head1 APPENDIX
56
57 The rest of the documentation details each of the object methods.
58 Internal methods are usually preceded with a _
59
60 =cut
61
62
63 # Let the code begin...
64
65
66 package Bio::SeqFeature::Gene::Promoter;
67 use vars qw(@ISA);
68 use strict;
69
70 # Object preamble - inherits from Bio::Root::Root
71
72 use Bio::SeqFeature::Gene::NC_Feature;
73
74 @ISA = qw(Bio::SeqFeature::Gene::NC_Feature);
75
76 sub new {
77 my($class,@args) = @_;
78
79 my $self = $class->SUPER::new(@args);
80
81 }
82
83
84 1;