in reply to sharing symbols
Definitely go for the module approach. Though not that short as I would prefer, the code below demonstrate how you could achieve the effect of "automatically" stuffing your constants into the list of exports of your module.
The code for finding the constant names in the symbol table is almost abstract and with a little effort could be migrated into a generic module, leaving your constant module lighter.
package MyConstants; use strict; use warnings; require Exporter; # you may use other exporter modules our @EXPORT; # empty by now use constant FOO => 1; use constant BOO => 2; use constant BAR => 3; # ... #### here begins the code to find and populate the list of exports wit +h constant names our @GLOBAL_SYMBOLS; # these are not package constants, but Perl artif +acts BEGIN { @GLOBAL_SYMBOLS = qw(BEGIN EXPORT); } # $ans = is_constant($symbol_name); # # decides if a name is a package constant or not. # Checks if it is all upper-case and not in @GLOBAL_SYMBOLS sub is_constant { my $k = shift; return $k =~ /^[A-Z]+$/ && !grep { $_ eq $k } @GLOBAL_SYMBOLS } # push_constants(\@export, @symbols) # # Push @symbol names into @export if they satisfy is_constant sub push_constants { my $export_ref = shift; my @symbols = @_; for my $s (@_) { if ( is_constant($s) ) { #print "s: $s\n"; push @$export_ref, $s } } } BEGIN { # iterate the package stash my @keys = do { no strict 'refs'; keys %{__PACKAGE__ . '::'} }; push_constants(\@EXPORT, @keys); } print "export: @EXPORT\n"; #### here ends the code to find and populate the list of exports with +constant names 1;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: sharing symbols
by bart (Canon) on Apr 13, 2007 at 11:42 UTC | |
by ferreira (Chaplain) on Apr 13, 2007 at 19:42 UTC |
In Section
Seekers of Perl Wisdom