http://qs321.pair.com?node_id=1214558

frazap has asked for the wisdom of the Perl Monks concerning the following question:

I'm trying to understand how the import in Text::Template works, and my asking here Re: Text::Template and delayed use vars

I tried this

use strict; use warnings; { no strict "refs"; *T::x = \"a"; *T::y = \"b"; } { package T; print "package ", __PACKAGE__, "\n"; print $T::x, "\n"; print $T::y, "\n"; #print our $y, "\n"; # works, print b print $y, "\n"; # Variable "$y" is not imported } { package P; print "package ", __PACKAGE__, "\n"; print $T::x, "\n"; my $y = "test"; print $y, "\n"; }
What is the trick to have $y displaying the value it received in the main package without giving this variable a package scope using our ?

Thanks

F.