/usr/lib/perl5/TFBS/PatternGenI.pm is in libtfbs-perl 0.5.svn.20100421-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | 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";
}
|