> 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 :-)
Fwwooo.. That's good to know!
>
> > 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:
Oh yeah, duuurr...
>
> %EXPORT_TAGS = (
> T2 => [qw(A1 A2 B3 B4)]),
> );
> $EXPORT_TAGS{'DEFAULT'} = $EXPORT_TAGS{'T2'};
>
Perfecto!
> HTH, Jenda
ISD!
Thanks 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]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
