From: "Dan Muey" <[EMAIL PROTECTED]>
> perldoc Exporter says:
>
> %EXPORT_TAGS = (T1 => [qw(A1 A2 B1 B2)], T2 => [qw(A1 A2 B3 B4)]);
>
> So I am wondering if I can do something like this wilst filling in
> tags:
>
> %EXPORT_TAGS = (
> T1 => [EMAIL PROTECTED],qw(A1 A2 B1 B2)],
> T2 => [qw(A1 A2 B3 B4)]),
> T3 => ['joemama','bendover',@stuff,qw(fred wilma)],
> T4 => [EMAIL PROTECTED]
> );
>
> And still be giving proper arrays as the value for the keys?
Sure you can :-)
> Also , say I wanted:
>
> use Monkey;
> to export $EXPORT_TAGS{'T2'} by default along with whatever is in
> @EXPORT, IE use Monkey would be the same as doing use Monkey qw(:T2);
>
> Would I do it this way?
> %EXPORT_TAGS = (
> T2 => [qw(A1 A2 B3 B4)]),
> DEFAULT => $EXPORT_TAGS{'T2'},
> };
No, you can't do this like that. The $EXPORT_TAGS{'T2'} is not there
yet, the whole righthand side is evaluated before it's assigned to
the variable on the lefthand side of the assignment. But you can do
this:
%EXPORT_TAGS = (
T2 => [qw(A1 A2 B3 B4)]),
);
$EXPORT_TAGS{'DEFAULT'} = $EXPORT_TAGS{'T2'};
HTH, Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
