/usr/lib/perl5/ALTree/SiteSens.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 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 | package ALTree::SiteSens;
################################################################
################################################################
####################### SiteSens ########################
################################################################
################################################################
use base 'ALTree::Base';
# Structure SiteSens
# "site_struct" -> Site
# "sens" -> Sens
# "rev" -> SiteSens
sub InitSiteSens { # [Obj] Sens_label SiteSens
my $self=shift;
my $sens=shift;
my $site=shift;
$self->_init("sens" => $sens, "site_struct" => $site, @_);
$self->Debug("creating SiteSens $sens\n");
}
sub GetSensLabel {
my $self=shift;
return $self->{"sens"}->GetLabel();
}
sub GetSensStruct {
my $self=shift;
return $self->{"sens"};
}
sub GetSite {
my $self=shift;
return $self->{"site_struct"};
}
sub GetSiteNb {
my $self=shift;
return $self->GetSite()->GetSiteNb();
}
sub LinkRev {
my $siteSens=shift;
my $siteSensRev=shift;
$siteSens->{'rev'}=$siteSensRev;
$siteSensRev->{'rev'}=$siteSens;
}
sub GetSensRev {
my $self=shift;
if (not defined($self->{'rev'})) {
die "LinkRev not called\n";
}
return $self->{'rev'};
}
1;
|