|
our $VERSION = '2.19.0' ;
BEGIN {
our $_tshv = {
tsv => {},
cfgNum => 0,
cfgDate => 0,
lastCheck => 0,
checkTime => 600,
confAcc => {},
logger => {},
userLogger => {},
_auditLogger => {},
lmConf => {},
localConfig => {},
};
our $_v = { data => {}, dataUpdate => {}, };
foreach ( keys %$_tshv ) {
eval " sub $_ {
my \ $v = \ $_ [1];
\ $_tshv ->{ $_ } = \ $v if ( defined \ $v );
return \ $_tshv ->{ $_ };
}";
die $@ if ($@);
}
eval "threads::shared::share(\$_tshv);" ;
foreach ( keys %$_v ) {
eval " sub $_ {
my \ $v = \ $_ [1];
\ $_v ->{ $_ } = \ $v if (\ $v );
return \ $_v ->{ $_ };
}";
die $@ if ($@);
}
}
1;
|