Dan Muey wrote:
> Howdy all!.
>
> I'm using a simpewlmmodule to get vars an dfunctions into one place.
Dan, I think you need a new keyboard :~)
>
> It works dandy except I can't have use strict in the module.
>
> I think it has todo with not doing my or our with teh @EXPORT and
> friends:
Use "our" with those.
>
> So what am I missing, what do I need to do to be able to add
> use stirct; to
> my module below and also therefore in my scripts thatuse it?
>
> package TestMod;
>
> require Exporter;
> @ISA = qw(Exporter);
> @EXPORT = qw(TestMod);
I think you mean 'TestModSub'
> @EXPORT_OK = qw($testvar);
>
> our $testvar = 'Howdy Module';
> sub TestModSub { return "Content-type: text/html\n\n$testvar\n"; }
>
> ###
> perl -e 'use TestMod;print TestModSub();'
>
> TIA
>
> Dan
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
