Sync that last bit with trunk. I'll have to merge that over to the tag for the next RC.
[bioperl-live.git] / Bio / DB / GFF / Aggregator / orf.pm
blobd79274320d3a1af2bbb151641b3c0f3955ef247f
1 =head1 NAME
3 Bio::DB::GFF::Aggregator::orf -- An aggregator for orf regions
5 =head1 SYNOPSIS
7 use Bio::DB::GFF;
9 # Open the sequence database
10 my $db = Bio::DB::GFF->new( -adaptor => 'dbi:mysql',
11 -dsn => 'dbi:mysql:elegans42',
12 -aggregator => ['orf','clone'],
15 ---------------------------
16 Aggregator method: orf
17 Main method: -none-
18 Sub methods: ORF
19 ---------------------------
21 =head1 DESCRIPTION
23 Bio::DB::GFF::Aggregator::orf was written to work with the "cds"
24 glyph. GFF files. It aggregates raw "ORF" features into "coding"
25 features. This is basically identical to the "coding" aggregator,
26 except that it looks for features of type "ORF" rather than "cds".
28 =cut
30 package Bio::DB::GFF::Aggregator::orf;
32 use strict;
33 use Bio::DB::GFF::Aggregator;
35 use base qw(Bio::DB::GFF::Aggregator);
37 =head2 method
39 Title : method
40 Usage : $aggregator->method
41 Function: return the method for the composite object
42 Returns : the string "orf"
43 Args : none
44 Status : Public
46 =cut
48 sub method { 'orf' }
50 # sub require_whole_object { 1; }
52 =head2 part_names
54 Title : part_names
55 Usage : $aggregator->part_names
56 Function: return the methods for the sub-parts
57 Returns : the list "CDS"
58 Args : none
59 Status : Public
61 =cut
63 sub part_names {
64 return qw(ORF);
68 __END__
70 =head1 BUGS
72 None reported.
75 =head1 SEE ALSO
77 L<Bio::DB::GFF>, L<Bio::DB::GFF::coding>,
78 L<Bio::DB::GFF::Aggregator>, L<Bio::Graphics::Glyph::cds>
81 =head1 AUTHOR
83 Lincoln Stein E<lt>lstein@cshl.orgE<gt>.
85 Copyright (c) 2001 Cold Spring Harbor Laboratory.
87 This library is free software; you can redistribute it and/or modify
88 it under the same terms as Perl itself.
90 =cut