Vice packages v jednom souboru

[Honza Pazdziora]

On Wed, Mar 04, 2009 at 09:47:56PM +0100, Jan Kasprzak wrote:
> 
> 	Potreboval bych pouzit podobnou konstrukci (instance RPC::PlServer,
> chci si usetrit "use lib ..." a nekolik pravidel pro SELinux, kde bych musel
> popsat, ze v tomto adresari jsou take soubory, ktere dany demon ma pravo
> nacitat), ale vadi mi, ze pouhe napsani "package Neco..." neprovede
> inicializace: kdyz mam
> 
> [...]
> package Neco;
> 
> our $PREFIX = '/my/dir/prefix';
> 
> tak ten $PREFIX neni nikdy nastaveny. A ted je otazka, jak zajistit,
> abych mel takoveto package-lokalni promenne nastavene. BEGIN-blok?
> 
> 	Jak byste tohle resili?

Muzes upresnit, co delas a co se Ti nedari?

Protoze:

$ perl

print "1\n";

package Neco;

our $PREFIX = '/my/dir/prefix';

package main;

print $Neco::PREFIX, "\n";
__END__
1
/my/dir/prefix

-- 
--------------------------------------------------------------------------
  Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
.project: Satellite, Spacewalk | Only self-confident people can be simple.