/usr/lib/perl5/ALTree/SitePerTree.pm is in altree 1.3.1-1.
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 24 25 26 27 28 29 30 31 32 33 | package ALTree::SitePerTree;
################################################################
################################################################
####################### SitePerTree ##########################
################################################################
################################################################
use base qw(ALTree::Base ALTree::Site);
use ALTree::SiteSensPerTree;
# Structure SitePerTree
# "site_nb" -> Integer
# "sens_struct" -> Hash of ('sens_label' -> SiteSens)
# "nb_mut" -> Integer
sub New { # [classe] site_nb
my $class=shift;
my $self={};
my $site_nb=shift;
bless($self, $class);
$self->InitSite($site_nb);
$self->_init("nb_mut" => 0, @_);
return $self;
}
sub NewSens {
my $self=shift;
my $sens=shift;
return ALTree::SiteSensPerTree->New($sens, $self);
}
1;
|