Re: defining constant in other package

Replies are listed 'Best First'.
Re^2: defining constant in other package by Anonymous Monk on Apr 24, 2012 at 14:31 UTC
sigh if using the ENV option it should be `package Ro:Sham::Bo; use constant DEBUG => !!$ENV{PERL_RO_SHAM_BO_DEBUG};` [download]	[reply] [d/l]
Re^2: defining constant in other package by LanX (Saint) on Apr 24, 2012 at 14:41 UTC
Well but even when putting a sub-declaration into a BEGIN block codefoldinmg isn't effected! `> perl -MO=Deparse tst.pl sub BEGIN { sub MyPackg::DBG { 0; } } our $a = 1; package MyPackg; print 'DEBUGGING' if DBG(); # <-- oops print 'huhu'; tst.pl syntax OK` [download] OK forget it this works, thanks! `BEGIN { sub MyPackg::Debug {!!0}; } our $a=1; package MyPackg; use constant DBG => MyPackg::Debug; print "DEBUGGING" if DBG; # won't be compiled print "huhu";` [download] `> perl -MO=Deparse tst.pl sub BEGIN { sub MyPackg::Debug { 0; } } our $a = 1; package MyPackg; sub BEGIN { require constant; do { 'constant'->import('DBG', Debug()) }; } '???'; print 'huhu'; tst.pl syntax OK` [download] Cheers Rolf	[reply] [d/l] [select]
Re^3: defining constant in other package by Corion (Patriarch) on Apr 24, 2012 at 14:45 UTC
Perl wants a constant (subroutine) to have an empty prototype before it eliminates code guarded by it: `BEGIN { sub MyPackg::DBG() { 0; } } our $a = 1; package MyPackg; print 'DEBUGGING' if DBG(); # <-- oops print 'huhu';` [download] gives this output: `F:\>perl -MO=Deparse tmp.pl sub MyPackg::DBG () { 0 } sub BEGIN { } our $a = 1; package MyPackg; '???'; print 'huhu'; tmp.pl syntax OK` [download]	[reply] [d/l] [select]
Re^4: defining constant in other package by LanX (Saint) on Apr 24, 2012 at 14:50 UTC
Argh , thanks, already forgot about this. Cheers Rolf	[reply]