Such would be easy to write. I suspect things don't work that way now for fear of a performance hit...
Which gave me a bit of a neat idea. If you adjust the usage slightly to use anonymous array references (which is pretty much required anyway):
then you can just "export" the @EXPORT array into place without even having to copy the list of symbols:use Exporter::Easy ( VERSION => \'1.01', EXPORT => [qw[ FunctionAlpha FunctionBravo $calarCharlie ]], # etc. ); # (Closing delimiters look so sad when alone like that.)
which also takes care of the use vars functionality.sub import { my $pkg= caller; push @{$pkg."::ISA"}, "Exporter"; while( @_ ) { my $key= shift; # (insert validation code here) *{$pkg."::".$key}= shift; } }
Seems like a worthy module to me!
- tye (but my friends call me "Tye")In reply to (tye)Re2: Standard Package Preamble
by tye
in thread Standard Package Preamble
by tadman
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |