use strict a pouzivani spolecnych promennych bez explicitniho uvedeni baliku

[Honza Pazdziora]

On Mon, 11 Mar 2002 06:44:30 GMT, Pavel Šmerk <xsmerk na informatics.muni.cz> wrote:
> Mam asi trochu chaos v typeglobech kombinovanych s use strict 
> vynucujicim my promenne. Chtel bych dosahnout toho, abych zaroven mohl 
> mit use strict a zaroven aby se %options v baliku a %options v main 
> odkazovaly na stejny hash. Bez use strict bych mohl delat nejaka kouzla 
> typu *options = \%::options, ale use strict mi vynuti my %options a pak 
> uz zminena konstrukce nelze pouzit. Lze to nejak obejit bez pouziti our 
> (nechci require 5.6.0), use vars (obsolete) a Exporteru (zbytecne 
> slozite)? Nejak jsem z vars.pm ani Exporter[/Heavy].pm nedokazal vycist, 
> co udelaji tak specialniho, ze use strict obelsti.

Jakkoli mi ty podminky prijdou divne a doporucil bych pouzivat
skalarni promennou jako referenci na anonymni hash, tak splneni Tveho
snu je napriklad

	$ perl
	package A;
	use strict;
	%::options = ( 'a' => 123 );
	package main;
	use strict;
	print $::options{'a'}, "\n";
	__END__
	123

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, mod_perl, DBI, Oracle, auth. WWW servers, XML/XSL, ...
------------------------------------------------------------------------