1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
=head1 NAME
Bio::DB::GFF::Aggregator::ucsc_twinscan -- UCSC twinscan aggregator
=head1 SYNOPSIS
use Bio::DB::GFF;
# Open the sequence database
my $db = Bio::DB::GFF->new( -adaptor => 'dbi:mysql',
-dsn => 'dbi:mysql:elegans42',
-aggregator => ['transcript','clone'],
);
-------------------------------------------------
Aggregator method: twinscan
Main method: transcript
Sub methods: twinscan
-------------------------------------------------
=head1 DESCRIPTION
L<Bio::DB::GFF::Aggregator::transcript>
=cut
package Bio::DB::GFF::Aggregator::ucsc_twinscan;
$Bio::DB::GFF::Aggregator::ucsc_twinscan::VERSION = '1.7.4';
use strict;
use base qw(Bio::DB::GFF::Aggregator);
=head2 method
Title : method
Usage : $aggregator->method
Function: return the method for the composite object
Returns : the string "twinscan"
Args : none
Status : Public
=cut
sub method { 'twinscan' }
=head2 part_names
Title : part_names
Usage : $aggregator->part_names
Function: return the methods for the sub-parts
Returns : empty list
Args : none
Status : Public
=cut
sub part_names {
return ();
}
=head2 main_name
Title : main_name
Usage : $aggregator->main_name
Function: return the method for the main component
Returns : the string "transcript:twinscan"
Args : none
Status : Public
=cut
sub main_name {
return 'transcript:twinscan';
}
1;
__END__
=head1 BUGS
None reported.
=head1 SEE ALSO
L<Bio::DB::GFF>, L<Bio::DB::GFF::Aggregator>
=head1 AUTHOR
Allen Day E<lt>allenday@ucla.eduE<gt>.
Copyright (c) 2002 Allen Day, University of California, Los Angeles.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|
