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
|
package TFBS::PatternGenI;
use vars qw(@ISA);
use strict;
# Object preamble - inherits from Bio::RootI;
use Bio::Root::Root;
use Carp;
@ISA = qw(Bio::Root::Root);
sub pattern {
my $self = shift;
$self->_abstractDeath;
}
sub _abstractDeath {
# borrowed from BioPerl; with compliments :)
my $self = shift;
my $package = ref $self;
my $caller = (caller())[1];
confess "Abstract method '$caller' defined in interface TFBS::PatternGenI not implemented by pacakge $package";
}
|
