Re^2: Constants and Subclasses...

You wrote:
BEGIN {
  my $constants = (
    FOO => 'foo',
    BAR => 'bar',
    BAZ => 'baz',
  );
  foreach my $name ( keys %constants ) {
    no strict 'refs';
    *{$name} = sub () { $constants{$name} };
  }
  ...
}</blockquote>
[download]
If you're going to make constants, do them the proper way with the constant pragma. What you wrote is roughly how constant.pm works in versions prior to 5.9 but the next versions of perl have a different implementation for constant and you'll want your code to do the right thing regardless.
BEGIN {
    require constant;
    my %constants = (
        FOO => 'foo',
        BAR => 'bar',
        BAZ => 'baz',
    );
    foreach my $name ( keys %constants ) {
        constant->import( $name => $constants{$name} );
    }
}
[download]
You also goofed and made a variable $constants instead of %constants.

⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊

Comment on Re^2: Constants and Subclasses...
Select or Download Code

Replies are listed 'Best First'.
Re^3: Constants and Subclasses... by t'mo (Pilgrim) on Dec 22, 2006 at 18:53 UTC
Cool, I didn't realize you could `constant->import`. I had tried to `use constant NAME => value` inside that loop, but (obviously) it didn't work. ...every application I have ever worked on is a glorified munger...	[reply]
Re^4: Constants and Subclasses... by diotalevi (Canon) on Dec 22, 2006 at 18:56 UTC
Well sure. `use constant FOO => 'bar';` is just shorthand for the following: `BEGIN { require constant; constant->import( FOO => 'bar' ); }` [download] ⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊	[reply] [d/l] [select]