replacing modules?

[Torsten Mohr]

Hi,

if i load a module by something like:

use module;

then i could also just load all the functions in module.pm
into my own script and everything is fine.
This works for some modules.

But how for example do i replace:

use vars qw/$some $list $of $variables/;

What else do i need to look for if i want to replace some
modules?


Best regards,
Torsten.

 

[Anno Siegel]

Hi,

if i load a module by something like:

use module;

then i could also just load all the functions in module.pm
into my own script and everything is fine.
This works for some modules.

It works better if you put the text of the foreign module into a BEGIN
block where the "use" statement used to be. Immediately following,
add another block

BEGIN { Module->import( ...) if Module->can( 'import') }

The dots represent the arguments to the former "use" statement.

But how for example do i replace:

use vars qw/$some $list $of $variables/;

There is no general recipe. This statements is needed to make the
module work if it is *not* part of your file. To replace it, you
must understand why it is there and replace it with something that
does the same thing in the new situation. It may need no replacement
at all.

What else do i need to look for if i want to replace some
modules?

Start with the pair of BEGIN blocks sketched above. Then debug it:
run it and repair what's broken.

Anno

 

[Tassilo v. Parseval]

Also sprach Anno Siegel:

It works better if you put the text of the foreign module into a BEGIN
block where the "use" statement used to be. Immediately following,
add another block

BEGIN { Module->import( ...) if Module->can( 'import') }

You can even drop the 'if' altogether. The 'import' method is special in
that perl will silently turn 'Module->import' into a no-op if this
method isn't inherited nor defined by Module.

Tassilo

 

[Anno Siegel]

Also sprach Anno Siegel:


You can even drop the 'if' altogether. The 'import' method is special in
that perl will silently turn 'Module->import' into a no-op if this
method isn't inherited nor defined by Module.

Ah... I didn't know this. I must have falsely accused a few good
programmers of sloppiness because of that

Anno