view release on metacpan or  search on metacpan

lib/FAST/Bio/MySeqI.pm  view on Meta::CPAN

use strict;
use Carp;

# Object preamble - inheriets from FAST::Bio::Root::Object

@ISA = qw(FAST::Bio::MyPrimarySeqI);

sub _abstractDeath {
  my $self = shift;
  my $package = ref $self;
  my $caller = (caller)[1];
  
  confess "Abstract method '$caller' defined in interface FAST::Bio::SeqI not implemented by pacakge $package. Not your fault - author of $package should be blamed!";
}

=head2 top_SeqFeatures

 Title   : top_SeqFeatures
 Usage   : 
 Function:
 Example :