File Coverage

blib/lib/XAO/BaseConfig.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	4	50.0
condition	1	2	50.0
subroutine	5	5	100.0
pod	0	1	0.0
total	25	29	86.2

####################################################################
#### This is an automatically generated file -- do not edit it #####
############ Re-install XAO::Base package to update it #############
####################################################################
package XAO::BaseConfig;
use strict;

# Nothing here.

package XAO::Base;
use strict;
use XAO::Errors qw(XAO::BaseConfig);
require Exporter;

use vars qw(@ISA @EXPORT_OK @EXPORT $VERSION
            $homedir $projectsdir $xao_base_version);

@ISA=qw(Exporter);
@EXPORT_OK=qw($homedir $projectsdir $xao_base_version);
@EXPORT=();

##
# XAO::BaseConfig package version
#
$xao_base_version='1.27';
$VERSION='1.27';

##
# Home directory of XAO
#
$homedir='/opt/xao';

##
# Root directory for all projects
#
$projectsdir='/opt/xao/projects';

##
# Setting root to something else. Useful for tests and not recommended
# for use in normal lifecycle.
#
sub set_root ($) {
    my $dir=shift || '';
    $dir=~/^\// ||
        throw XAO::E::BaseConfig "set_root - $dir must be an absolute path";
    -d $dir ||
        throw XAO::E::BaseConfig "set_root - directory $dir does not exists";
    $homedir=$dir;
    $projectsdir=$homedir . '/projects';
}

###############################################################################
1;