use Exporter;
use vars qw(@ISA @EXPORT $VERSION);

@ISA = qw(Exporter);
@EXPORT = qw(Execute GetValue $PACKAGE_REQUEST_ID $BUGNUMBER $KBARTICLE $DISTMETHOD $MINSP $MAXSP $ISNONINSTALLINGPKG $JOBBRANCHNAME $HOTPATCHBINARIES $BINARIESAFFECTED $BUGTITLE);
$VERSION = '1.00';


my($PACKAGE_REQUEST_ID, $BUGNUMBER, $KBARTICLE, $DISTMETHOD, $MINSP, $MAXSP, $ISNONINSTALLINGPKG, $JOBBRANCHNAME, $HOTPATCHBINARIES, $BINARIESAFFECTED, $BUGTITLE);


BEGIN {

print "Begin has begun\n";

	$PACKAGE_REQUEST_ID = "PackageRequestID";
	$BUGNUMBER = "bugnumber";
	$KBARTICLE = "kbarticle";
	$DISTMETHOD = "distmethod";
	$MINSP = "minsp";
	$MAXSP = "maxsp";
	$ISNONINSTALLINGPKG = "isnoninstallingpkg";
	$JOBBRANCHNAME = "jobbranchname";
	$HOTPATCHBINARIES = "hotpathbinaries";
	$BINARIESAFFECTED = "binariesaffected";
	$BUGTITLE = "bugtitle";

	print "PRI is $PACKAGE_REQUEST_ID\n";

}

##</code><code>##


	print "WHAT VALUE? $PACKAGE_REQUEST_ID" . "\n";