in reply to Re^2: Standard Package Preamble
in thread Standard Package Preamble

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): 

use Exporter::Easy (
    VERSION => \'1.01',
    EXPORT => [qw[
        FunctionAlpha
        FunctionBravo
        $calarCharlie
    ]],
    # etc.
);  # (Closing delimiters look so sad when alone like that.)

[download]
then you can just "export" the @EXPORT array into place without even having to copy the list of symbols: 
sub import {
    my $pkg= caller;
    push @{$pkg."::ISA"}, "Exporter";
    while(  @_  ) {
        my $key= shift;
        # (insert validation code here)
        *{$pkg."::".$key}= shift;
    }
}

[download]
which also takes care of the use vars functionality.

Seems like a worthy module to me!

        - tye (but my friends call me "Tye")

Replies are listed 'Best First'.
Re^4: Standard Package Preamble
by tadman (Prior) on Apr 18, 2001 at 19:12 UTC
    Instead of using anonymous array references, I was just going to use the same system that CGI.pm uses, not unlike processing a UNIX command line argument set. In that case, there are reserved words 'VERSION', 'EXPORT', etc. that trigger certain processing in the module. The rest are treated as parameters. The only downside is that to export a function called 'VERSION', for whatever reason, you would have to explicitly list it as '&VERSION'.

    Further, instead of latching on to the Exporter's import routine, it might be better to rewrite it to avoid the extra call and the @ISA use. What Exporter does is really neat, but isn't exactly rocket science.

    As much of a fan as I am of anonymous hashes, arrays, and references, in this case, it does seem to complicate what is supposeed to be a simplifying operation.

    On a side note, it's too bad that there aren't qw-style operators that return references: 
        my ($ref) = qwa[ a better camel ];
    print @$ref,"\n";

    [download]
    Oh, and Exporter::Easy sounds a lot like Bone::Easy, no?
[reply]
[d/l]
[select]

In Section Meditations