On Thu, Jul 29, 2010 at 3:28 PM, Bill Moseley <[email protected]> wrote:
> Wondering what you use for constants in your modules.
I actually do stuff like
BEGIN {
my %SmallEnglishNumbers = qw/
ONE => 1 TWO => 2 TWELVE => 12, INF => -1 , ZAPHOD => 42
/;
my $block;
while (my ($k,$v) = each %SmallEnglishNumbers){
$block .= "sub $k() { $v }\n";
}
eval "$block 1" or die "Whoops, botched block:\n$block\n with err:\n$@"
}
pretty regularly.
The thing Constant:: will give you that this approach doesn't is dualvars.
