Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Creating "Lexical" Symbol Table Aliases (a la "use vars") From The Same Package

by LanX (Canon)
on May 08, 2014 at 19:59 UTC ( #1085503=note: print w/ replies, xml ) Need Help??


in reply to Creating "Lexical" Symbol Table Aliases (a la "use vars") From The Same Package

I don't think this has anything to do with lexicals, but with importing package vars.

AFAIK you are reproducing the import mechanism 100% (a glob from one STASH gets a reference to a fully qualified package var assigned)

Apparently Perl is setting a flag then, indicating that the target $var doesn't need to be oured anymore under strict.

The only "special" thing is that you found a back-door to import from the same package.

The first example that doesn't work seems to highlight an implementation detail, that the surrounding package has to be different (which is quite normal during imports)

I will try to update this post with a test script emphasizing my theory... or you can just have a look into Exporter.

HTH.

PS: considering your *coughing*: compilation is a two phase process, the package-declaration is done before BEGIN is executed, hence the output of B::Deparse is correct.

Cheers Rolf

( addicted to the Perl Programming Language)

edit

just realized that tobyink++ practically gave the same answer. :)

update

)

> perl package TST; BEGIN { $a=42 } package main; print $TST::a; __END__ 42


Comment on Re: Creating "Lexical" Symbol Table Aliases (a la "use vars") From The Same Package
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (11)
As of 2014-12-26 07:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (167 votes), past polls