1cdf0e10cSrcweirpackage solarenvhelper; 2cdf0e10cSrcweir 3*9780544fSAndrew Rist#************************************************************** 4*9780544fSAndrew Rist# 5*9780544fSAndrew Rist# Licensed to the Apache Software Foundation (ASF) under one 6*9780544fSAndrew Rist# or more contributor license agreements. See the NOTICE file 7*9780544fSAndrew Rist# distributed with this work for additional information 8*9780544fSAndrew Rist# regarding copyright ownership. The ASF licenses this file 9*9780544fSAndrew Rist# to you under the Apache License, Version 2.0 (the 10*9780544fSAndrew Rist# "License"); you may not use this file except in compliance 11*9780544fSAndrew Rist# with the License. You may obtain a copy of the License at 12*9780544fSAndrew Rist# 13*9780544fSAndrew Rist# http://www.apache.org/licenses/LICENSE-2.0 14*9780544fSAndrew Rist# 15*9780544fSAndrew Rist# Unless required by applicable law or agreed to in writing, 16*9780544fSAndrew Rist# software distributed under the License is distributed on an 17*9780544fSAndrew Rist# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 18*9780544fSAndrew Rist# KIND, either express or implied. See the License for the 19*9780544fSAndrew Rist# specific language governing permissions and limitations 20*9780544fSAndrew Rist# under the License. 21*9780544fSAndrew Rist# 22*9780544fSAndrew Rist#************************************************************** 23*9780544fSAndrew Rist 24*9780544fSAndrew Rist 25cdf0e10cSrcweir 26cdf0e10cSrcweiruse strict; 27cdf0e10cSrcweiruse warnings; 28cdf0e10cSrcweir 29cdf0e10cSrcweirBEGIN { 30cdf0e10cSrcweir use Exporter (); 31cdf0e10cSrcweir our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); 32cdf0e10cSrcweir 33cdf0e10cSrcweir $VERSION = 1.00; 34cdf0e10cSrcweir # if using RCS/CVS, this may be preferred 35cdf0e10cSrcweir $VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; # must be all one line, for MakeMaker 36cdf0e10cSrcweir @ISA = qw(Exporter); 37cdf0e10cSrcweir @EXPORT = qw(&setSolenvPath &getSolenvPath); 38cdf0e10cSrcweir %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], 39cdf0e10cSrcweir # your exported package globals go here, 40cdf0e10cSrcweir # as well as any optionally exported functions 41cdf0e10cSrcweir @EXPORT_OK = ( ); # qw($Var1 %Hashit &func3); 42cdf0e10cSrcweir} 43cdf0e10cSrcweir 44cdf0e10cSrcweirour $sSolenvPath; 45cdf0e10cSrcweirsub setSolenvPath($) 46cdf0e10cSrcweir{ 47cdf0e10cSrcweir $sSolenvPath = shift; 48cdf0e10cSrcweir} 49cdf0e10cSrcweirsub getSolenvPath() 50cdf0e10cSrcweir{ 51cdf0e10cSrcweir if ($sSolenvPath) 52cdf0e10cSrcweir { 53cdf0e10cSrcweir return $sSolenvPath; 54cdf0e10cSrcweir } 55cdf0e10cSrcweir print "INTERNAL ERROR: You must set the solenv path to the performancetest, by call setSolenvPath()\n"; 56cdf0e10cSrcweir exit 1; 57cdf0e10cSrcweir} 58cdf0e10cSrcweir 59cdf0e10cSrcweir1; 60