sync w/ main trunk
[bioperl-live.git] / Bio / SeqFeature / Gene / Poly_A_site.pm
blob556c204569b36c7e04fd5cb76f47ef6574d90da5
1 # $Id$
3 # BioPerl module for Bio::SeqFeature::Gene::Poly_A_site
5 # Please direct questions and support issues to <bioperl-l@bioperl.org>
7 # Cared for by David Block <dblock@gene.pbi.nrc.ca>
9 # Copyright David Block
11 # You may distribute this module under the same terms as perl itself
13 # POD documentation - main docs before the code
15 =head1 NAME
17 Bio::SeqFeature::Gene::Poly_A_site - poly A feature
19 =head1 SYNOPSIS
21 Give standard usage here
23 =head1 DESCRIPTION
25 Inherits from L<Bio::SeqFeature::Gene::NC_Feature>.
27 =head1 FEEDBACK
29 =head2 Mailing Lists
31 User feedback is an integral part of the evolution of this and other
32 Bioperl modules. Send your comments and suggestions preferably to
33 the Bioperl mailing list. Your participation is much appreciated.
35 bioperl-l@bioperl.org - General discussion
36 http://bioperl.org/wiki/Mailing_lists - About the mailing lists
38 =head2 Support
40 Please direct usage questions or support issues to the mailing list:
42 L<bioperl-l@bioperl.org>
44 rather than to the module maintainer directly. Many experienced and
45 reponsive experts will be able look at the problem and quickly
46 address it. Please include a thorough description of the problem
47 with code and data examples if at all possible.
49 =head2 Reporting Bugs
51 Report bugs to the Bioperl bug tracking system to help us keep track
52 of the bugs and their resolution. Bug reports can be submitted via the
53 web:
55 http://bugzilla.open-bio.org/
57 =head1 AUTHOR - David Block
59 Email dblock@gene.pbi.nrc.ca
61 =head1 APPENDIX
63 The rest of the documentation details each of the object methods.
64 Internal methods are usually preceded with a _
66 =cut
69 # Let the code begin...
72 package Bio::SeqFeature::Gene::Poly_A_site;
73 use strict;
75 # Object preamble - inherits from Bio::Root::Root
78 use base qw(Bio::SeqFeature::Gene::NC_Feature);
80 sub new {
81 my($class,@args) = @_;
83 my $self = $class->SUPER::new(@args);