Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Importing dynamic variables

by gellyfish (Monsignor)
on Nov 17, 2006 at 10:24 UTC ( #584697=note: print w/ replies, xml ) Need Help??

in reply to Importing dynamic variables

Firstly you will need to have all of that in a BEGIN block in order for @EXPORT_OK to have the values in it when import is called by the use gen_var.

Also I would eschew the second eval and simply do something likeL

BEGIN { foreach my $variable (@variables) { eval "our \$$variable = $counter; push \@exported_symbols, \ +$$variable"; $counter++; push @EXPORT_OK, "\$$variable"; } }
I do something similar in Sys::Utmp for what it's worth. Actually it's worse because there I export the symbols into one module that then exports them to the callers namespace :-O


Comment on Re: Importing dynamic variables
Select or Download Code
Replies are listed 'Best First'.
Re^2: Importing dynamic variables
by Anonymous Monk on Nov 18, 2006 at 22:21 UTC

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://584697]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (2)
As of 2015-10-10 02:18 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (254 votes), past polls