/usr/lib/perl5/ALTree/Utils.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 63 64 65 66 67 | package ALTree::Utils;
use Pod::Usage;
use strict;
BEGIN {
use Exporter ();
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
#$VERSION = 1.00;
# if using RCS/CVS, this may be preferred
#$VERSION = do { my @r = (q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; # must be all one line, for MakeMaker
@ISA = qw(Exporter);
@EXPORT = qw(); #(&func1 &func2 &func4);
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
# your exported package globals go here,
# as well as any optionally exported functions
@EXPORT_OK = qw(&erreur &internal_error);
}
use vars @EXPORT_OK;
sub erreur
{
my $msg=shift;
my $use_pod=shift;
if (not defined($use_pod) or $use_pod) {
pod2usage("Error: ".$msg);
} else {
print STDERR "Error: ".$msg;
exit 1;
}
}
sub internal_error
{
my $msg=shift;
die("Internal error: $msg\n".
"Please, report this bug (with all is needed to reproduce it) to:\n".
"Claire.Bardel\@univ-lyon1.fr\n");
}
1;
package DataType;
use constant SNP => 0;
use constant DNA => 1;
package PhylProg;
use constant PHYLIP => 0;
use constant PAUP => 1;
use constant PAML => 2;
package ANC;
use constant Rooted => 0;
use constant Unrooted => 1;
use constant OutGroup => 2;
no strict;
@Name=("rooted using an ancestral sequence",
"unrooted", "rooted using an outgroup");
|