Quick export question

[Dan Muey]

> I'm wanting to setup a module that will export whatever is in

> @EXPORT (if anythign) and ':basic'
>
> IE I want
> use Monkey;
> To be identical to
> use Monkey qw(:basic);
>
> So if I have this on the module which of 3 ways I'm trying to
> accoomplish that are valid (if any)?
>
> %EXPORT_TAGS = {
> ':basic' => [qw(fred wilma barney dino)],
> };

Sorry about the mess there, Let me fix it:

$EXPORT_TAGS{':DEFAULT'} = $EXPORT_TAGS{':basic'};

Or

$EXPORT_TAGS{':DEFAULT'} .= $EXPORT_TAGS{':basic'};

Or

$EXPORT_TAGS{':DEFAULT'} = > ($EXPORT_TAGS{':basic'},@EXPORT);

There that's more readable!

>
> TIA
>
> Dan
>
> --
> To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
> For additional commands, e-mail: [email]beginners-help@perl.org[/email]
>
>

[Charles K. Clarkson]

Dan Muey <dmuey@infiniplex.com> wrote:
:
: I'm wanting to setup a module that will export whatever is in
: @EXPORT (if anythign) and ':basic'
:
: IE I want
: use Monkey;
: To be identical to
: use Monkey qw(:basic);

Seems like you really need is a way to test this
for yourself. Here's a quickie I just wrote. I'm sure
it fails for some modules, but . . .

use strict;
use warnings;
use Data::Dumper;

print Dumper imported( 'CGI', ':html' );

sub imported {
my( $module, @import ) = @_;
require "$module.pm";
my @previous_keys = keys %::;
import $module @import;

my %symbol_table = %::;
delete @symbol_table{ @previous_keys };
return [ keys %symbol_table ];
}


HTH,

Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328

[Bob Showalter]

Dan Muey wrote:

> I'm wanting to setup a module that will export whatever is in
> @EXPORT (if anythign) and ':basic'
>
> IE I want
> use Monkey;
> To be identical to
> use Monkey qw(:basic);
>
> So if I have this on the module which of 3 ways I'm trying to
> accoomplish that are valid (if any)?
>
> %EXPORT_TAGS = {
> ':basic' => [qw(fred wilma barney dino)],
> };
> $EXPORT_TAGS{':DEFAULT'} = $EXPORT_TAGS{':basic'}; # this would do it
> right? Or
> $EXPORT_TAGS{':DEFAULT'} .= $EXPORT_TAGS{':basic'}; Or
> $EXPORT_TAGS{':DEFAULT'} = ($EXPORT_TAGS{':basic'},@EXPORT);

Probably this will work (haven't tried it):

$EXPORT_TAGS{':DEFAULT'} = [ @{$EXPORT_TAGS{':basic'}}, @EXPORT ];

But I would do this instead:

my @basic = qw(fred wilma barney dino);
our @EXPORT = (qw/foo bar baz/, @basic);
our %EXPORT_TAGS = (':basic' => \@basic);

I don't think defining :DEFAULT for yourself is what the author of Exporter
had in mind...