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
|
=head1 NAME
Bio::DB::GFF::Aggregator::none -- No aggregation
=head1 SYNOPSIS
use Bio::DB::GFF;
# Open the sequence database
my $db = Bio::DB::GFF->new( -adaptor => 'dbi:mysql',
-dsn => 'dbi:mysql:elegans42',
-aggregator => 'none'
);
=head1 DESCRIPTION
Bio::DB::GFF::Aggregator::none can be used to indicate that you do not
want any aggregation performed. It is equivalent to providing undef
to the B<-aggregator> argument. It overrides disaggregate() and
aggregate() so that they do exactly nothing.
=cut
package Bio::DB::GFF::Aggregator::none;
$Bio::DB::GFF::Aggregator::none::VERSION = '1.7.4';
use strict;
use base qw(Bio::DB::GFF::Aggregator);
sub disaggregate {
my $self = shift;
my $types = shift;
# no change
}
sub aggregate {
my $self = shift;
my $features = shift;
return; # no change
}
1;
|
