Subversion Repositories DevTools

########################################################################
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
#
# Module name   : JatsEnv.pm
# Module type   : Perl Module
# Compiler(s)   : Perl
# Environment(s): JATS
#
# Description   : Provide some misc environment functions
#
# Usage         : EnvImport (VarName);
#                 EnvImportOptional (VarName [, DefaultValue]);
#
#
#......................................................................#

require 5.006_001;

use strict;
use warnings;

package JatsEnv;
use JatsError;


our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
use Exporter;

$VERSION = 1.00;
@ISA = qw(Exporter);

# Symbols to autoexport (:DEFAULT tag)
@EXPORT = qw(
                EnvImport
                EnvImportOptional
            );

#-------------------------------------------------------------------------------
# Function        : EnvImport
#
# Description     : Import an environment variable into the global name space
#                   The user should have pre-declared the usage of the variable
#                   with an "our".
#
# Inputs          : Name of the environment variable to import
#
# Returns         : 1
#                   If the variable is not present then an error message is
#                   generated and the program will be terminated. The assumption
#                   is that the variable MUST be present.
#
sub EnvImport
{
    my( $EnvVar ) = @_;

    EnvImportOptional ( $EnvVar, undef );

    no strict 'refs';
    $EnvVar = 'main::' . $EnvVar;
    Error( "Environment Variable '$EnvVar' not defined." )
        unless( defined ($$EnvVar) );
    return 1;
}

#-------------------------------------------------------------------------------
# Function        : EnvImportOptional
#
# Description     : Import an environment variable into the global name space
#                   The user should have pre-declared the usage of the variable
#                   with an "our".
#
#                   If no default value is provided and the variable does not
#                   exist in the environment, then result will be undefined
#
# Inputs          : Name of the environment variable to import
#                   Default value
#
# Returns         : 1
#
sub EnvImportOptional
{
    my( $EnvVar, $DefaultValue ) = @_;
    no strict 'refs';

    my $GlobalEnvVar = 'main::' . $EnvVar;

    unless ( defined( $$GlobalEnvVar ) ) {
        my $value = $::ENV{ $EnvVar };
        $value = $DefaultValue unless ( defined $value );
        $$GlobalEnvVar = $value;
    }
    return 1;
}

1;