← Back to branch summary

~ubuntu-branches/ubuntu/lucid/bioperl/lucid

« back to all changes in this revision

Viewing changes to Bio/DB/GFF/Aggregator/none.pm

  • Committer: Bazaar Package Importer
  • Author(s): Matt Hope
  • Date: 2002-03-20 01:16:30 UTC
  • Revision ID: james.westby@ubuntu.com-20020320011630-wyvmxwc7o5bi4665
Tags: upstream-1.0
Import upstream version 1.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
Bio/DB/GFF/Aggregator/none.pm
 
1
=head1 NAME
 
2
 
 
3
Bio::DB::GFF::Aggregator::none -- No aggregation
 
4
 
 
5
=head1 SYNOPSIS
 
6
 
 
7
  use Bio::DB::GFF;
 
8
 
 
9
  # Open the sequence database
 
10
  my $db      = Bio::DB::GFF->new( -adaptor => 'dbi:mysql',
 
11
                                   -dsn     => 'dbi:mysql:elegans42',
 
12
                                   -aggregator => 'none'
 
13
                                 );
 
14
 
 
15
 
 
16
=head1 DESCRIPTION
 
17
 
 
18
Bio::DB::GFF::Aggregator::none can be used to indicate that you do not
 
19
want any aggregation performed.  It is equivalent to providing undef
 
20
to the B<-aggregator> argument.  It overrides disaggregate() and
 
21
aggregate() so that they do exactly nothing.
 
22
 
 
23
=cut
 
24
 
 
25
package Bio::DB::GFF::Aggregator::none;
 
26
 
 
27
use strict;
 
28
use Bio::DB::GFF::Aggregator;
 
29
use vars qw($VERSION @ISA);
 
30
 
 
31
@ISA = qw(Bio::DB::GFF::Aggregator);
 
32
$VERSION = '0.10';
 
33
 
 
34
sub disaggregate {
 
35
  my $self  = shift;
 
36
  my $types = shift;
 
37
  # no change
 
38
}
 
39
 
 
40
sub aggregate {
 
41
  my $self = shift;
 
42
  my $features = shift;
 
43
  return;  # no change
 
44
}
 
45
 
 
46
1;