[Moscow.pm] Хочется очень странного... local at upper level

[Vladimir V. Perepelitsa]

хочу сделать сделующее:

чтобы код:
{
	localize_var();
	do_smth();
}

работал как приблизительно такой блок:
{
	local $var = ...;
	do_smth();
}

при вызове localize_var мне нужно выполнить local(${+caller}.'::var') = ..., и 
чтобы она была локальна для вызывающего блока, а не для моего.

собственно я хочу сделать эмуляцию lexically scoped pragmas,
только для perl < 5.10.0

есть какие-нибудь идеи?

-- 
Vladimir Perepelitsa aka Mons Anderson
<inthrax на gmail.com> / #99779956