Vice packages v jednom souboru

[Jan Kasprzak]

	Dobry vecer,

v mnoha aplikacich je konstrukce, kdy v ramci jednoho souboru je
vic packages - neco jako (vymyslim si, je to jen priklad):

========================================
#!/usr/bin/perl

my $parser = MyParser->new();

...

package MyParser;

use base qw(XML::SAX::Parser);

sub start_tag() {...}

========================================

	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?

-Y.

-- 
| Jan "Yenya" Kasprzak  <kas at {fi.muni.cz - work | yenya.net - private}> |
| GPG: ID 1024/D3498839      Fingerprint 0D99A7FB206605D7 8B35FCDE05B18A5E |
| http://www.fi.muni.cz/~kas/    Journal: http://www.fi.muni.cz/~kas/blog/ |
>>  If you find yourself arguing with Alan Cox, you’re _probably_ wrong.  <<
>>     --James Morris in "How and Why You Should Become a Kernel Hacker"  <<