Subversion Repositories DevTools

Rev

Rev 261 | Rev 5710 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 261 Rev 263
Line 16... Line 16...
16 
 
 16 
 
17 
require 5.006_001;
 17 
require 5.006_001;
18 
 
 18 
 
19 
use strict;
 19 
use strict;
20 
use warnings;
 20 
use warnings;
- 
 
 21 
 
- 
 
 22 
package JatsEnv;
21 
use JatsError;
 23 
use JatsError;
22 
 
 24 
 
- 
 
 25 
 
- 
 
 26 
our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
- 
 
 27 
use Exporter;
- 
 
 28 
 
- 
 
 29 
$VERSION = 1.00;
- 
 
 30 
@ISA = qw(Exporter);
- 
 
 31 
 
- 
 
 32 
# Symbols to autoexport (:DEFAULT tag)
- 
 
 33 
@EXPORT = qw(
- 
 
 34 
                EnvImport
- 
 
 35 
                EnvImportOptional
- 
 
 36 
            );
- 
 
 37 
 
23 
#-------------------------------------------------------------------------------
 38 
#-------------------------------------------------------------------------------
24 
# Function        : EnvImport
 39 
# Function        : EnvImport
25 
#
 40 
#
26 
# Description     : Import an environment variable into the global name space
 41 
# Description     : Import an environment variable into the global name space
27 
#                   The user should have pre-declared the usage of the variable
 42 
#                   The user should have pre-declared the usage of the variable