/usr/lib/x86_64-linux-gnu/perl5/5.24/TFBS/PatternGen/Motif/Word.pm is in libtfbs-perl 0.7.0+dfsg-4.
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 | package TFBS::PatternGen::Motif::Word;
use vars qw(@ISA);
use strict;
use TFBS::Word::Consensus;
@ISA = qw(TFBS::Word::Consensus);
sub new {
my ($caller, %args) = @_;
my $word = TFBS::Word::Consensus->new(%args);
my $self = bless $word, ref($caller) || $caller;
return $self;
}
sub pattern {
return $_;
}
1;
|