t/AlignIO/AlignIO.t: fix number of tests in plan (fixup c523e6bed866)
[bioperl-live.git] / Bio / DB / GFF / Aggregator / ucsc_unigene.pm
blob8002aeaa9f3235fc2e17fa54b2f41d79fe1d8b45
1 =head1 NAME
3 Bio::DB::GFF::Aggregator::ucsc_unigene -- UCSC UniGene aggregator
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 => ['transcript','clone'],
15 -------------------------------------------------
16 Aggregator method: unigene
17 Main method: transcript
18 Sub methods: unigene_2
19 -------------------------------------------------
21 =head1 DESCRIPTION
23 L<Bio::DB::GFF::Aggregator::transcript>
25 =cut
27 package Bio::DB::GFF::Aggregator::ucsc_unigene;
29 use strict;
31 use base qw(Bio::DB::GFF::Aggregator);
34 =head2 method
36 Title : method
37 Usage : $aggregator->method
38 Function: return the method for the composite object
39 Returns : the string "unigene"
40 Args : none
41 Status : Public
43 =cut
45 sub method { 'unigene' }
47 =head2 part_names
49 Title : part_names
50 Usage : $aggregator->part_names
51 Function: return the methods for the sub-parts
52 Returns : empty list
53 Args : none
54 Status : Public
56 =cut
58 sub part_names {
59 return ();
62 =head2 main_name
64 Title : main_name
65 Usage : $aggregator->main_name
66 Function: return the method for the main component
67 Returns : the string "transcript"
68 Args : none
69 Status : Public
71 =cut
73 sub main_name {
74 #transcript
75 return 'transcript:uniGene_2';
79 __END__
81 =head1 BUGS
83 None reported.
86 =head1 SEE ALSO
88 L<Bio::DB::GFF>, L<Bio::DB::GFF::Aggregator>
90 =head1 AUTHOR
92 Allen Day E<lt>allenday@ucla.eduE<gt>.
94 Copyright (c) 2002 Allen Day, University of California, Los Angeles.
96 This library is free software; you can redistribute it and/or modify
97 it under the same terms as Perl itself.
99 =cut