Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

SENDU / bioperl-1.5.2_004-RC / Bio / DB / GFF / Aggregator / ucsc_softberry.pm 

            

              
—
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

              
=head1 NAME
Bio::DB::GFF::Aggregator::ucsc_softberry -- UCSC softberry 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: softberry
 Main method:       transcript
 Sub methods:       softberryGene
 -------------------------------------------------
=head1 DESCRIPTION
L<Bio::DB::GFF::Aggregator::transcript>
=cut
package Bio::DB::GFF::Aggregator::ucsc_softberry;
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 "softberry"
 Args    : none
 Status  : Public
=cut
sub method { 'softberry' }
=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:softberryGene"
 Args    : none
 Status  : Public
=cut
sub main_name {
  return 'transcript:softberryGene';
}
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