A side note I didn't think about, can a scalar be substituted in a scalar name?
Yes, the mechanism basically works for any package variables (scalars, arrays, hashes, filehandles, etc.) and subs. It doesn't work for lexical variables, i.e. those declared with my.
package Big::Long::Library::Name { our $scalar = "Foo"; our @array = qw/ Bar Quz /; our %hash = ( Baz => 42 ); sub function { print "Hello\n" } } package MyPackage { BEGIN { *MyPackage::blah = \&Big::Long::Library::Name::function; package Foo; *MyPackage::myscalar = \$Big::Long::Library::Name::scalar; *MyPackage::array = \@Big::Long::Library::Name::array; *MyPackage::hash = \%Big::Long::Library::Name::hash; } print "$myscalar @array $hash{Baz}\n"; blah; }
I had to put the operations in a BEGIN block so that Perl knows about the variable names at compile time, and the package Foo; is there because of this detail. As a slightly nicer alternative, you can use Symbol::Alias:
package Big::Long::Library::Name { our $scalar = "Foo"; our @array = qw/ Bar Quz /; our %hash = ( Baz => 42 ); sub function { print "Hello\n" } } package MyPackage { use Symbol::Alias 'Big::Long::Library::Name::function' => 'blah', '$Big::Long::Library::Name::scalar' => 'myscalar', '@Big::Long::Library::Name::array' => 'array', '%Big::Long::Library::Name::hash' => 'hash'; print "$myscalar @array $hash{Baz}\n"; blah; }
In reply to Re^11: Export and use different package in module
by haukex
in thread Export and use different package in module
by chenhonkhonk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |