Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

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

/J\


Comment on Re: Importing dynamic variables
Select or Download Code
Re^2: Importing dynamic variables
by Anonymous Monk on Nov 18, 2006 at 22:21 UTC
    thanks!

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (11)
As of 2014-07-23 06:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (133 votes), past polls