Howdy, 
The subject says it all believe it or not :)

What I'm trying to figure out is how to pass an argument 
(pragma I believe is the proper term) to use() and do 
sonethign in the package based on it.

I've looked at CGI.pm source but can't seem to track it down. 
(Similar idea as to CGIs -oldstyle_urls -newstyel_urls)
http://search.cpan.org/~lds/CGI.pm-3.04/CGI.pm#PRAGMAS

What I'd like to do is something like this:

# for old time's sake we'll just use our favorite module
use Foo::Monkey qw(:Foo :Bar -doamazingthings);

#then in Foo::Monkey:
package Foo::Monkey;

[mandatory module goodies snipped]

if(?????) { # IE if -doamazingthings was specified in the use statement
        # do some amazing things here
}

[mandatory module goodies snipped]

How do I do that?? Are those arguments stored in a special array somewhere??

TIA
DMuey

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to