our
@EXPORT_OK
=
qw/
immortalize decapitate
get_timer_subs get_interval_subs
/
;
our
$VERSION
=
"v6.29.3"
;
my
%KEEP_ALIVE
;
sub
immortalize {
my
(
$var
) =
@_
;
$KEEP_ALIVE
{
$var
} =
$var
;
}
sub
decapitate {
my
(
$var
) =
@_
;
delete
$KEEP_ALIVE
{
$var
};
}
sub
get_timer_subs {
my
$package
= ((
caller
(1))[3] =~ /^(.+)\:\:/)[0];
my
(
$fn1
,
$fn2
) =
map
"${package}::$_"
,
'_timer'
,
'_cancel_timer'
;
no
strict
'refs'
;
return
map
\&{
$_
},
$fn1
,
$fn2
;
}
sub
get_interval_subs {
my
$package
= ((
caller
(1))[3] =~ /^(.+)\:\:/)[0];
my
(
$fn1
,
$fn2
) =
map
"${package}::$_"
,
'_interval'
,
'_cancel_interval'
;
no
strict
'refs'
;
return
map
\&{
$_
},
$fn1
,
$fn2
;
}
1;