branch-1-6/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
  29 use base qw(Bio::DB::GFF::Aggregator);
  30
  31 sub disaggregate {
  32   my $self  = shift;
  33   my $types = shift;
  34   # no change
  35 }
  36
  37 sub aggregate {
  38   my $self = shift;
  39   my $features = shift;
  40   return;  # no change
  41 }
  42
  43 1;