Simpler alternative to modules

If you don't want the trouble of converting your scripts to .pm modules, but you can share a bunch of subroutines across multiple scripts by 1) putting them in a separate file (say snmplib.pl) 2) adding a 1; to the end of the snmplib.pl file, and 3) putting a code fragment at the beginning of scripts which would call those subroutines like

BEGIN {
  require "/var/www/cgi-bin/snmplib.pl"; 
}
[download]

. It's not as elegant as modules and it's not particularly mod_perl friendly, but it works and is imho quicker to implement. (It is true that global variables in the two files are accessible to each other with this approach, not encapsulated and filtered through well-defined EXPORT interfaces, but you may or may not care about that depending on how your code works.) Perhaps some more experienced monk will tell you (and me) why not to do it this simple way.

Comment on Simpler alternative to modules Download Code

Replies are listed 'Best First'.

Re (tilly) 2: Simpler alternative to modules
by tilly (Archbishop) on Apr 17, 2001 at 21:03 UTC

Tracking down where a routine comes from will become difficult.
Scripts will reuse variables and subroutine names unbeknownst to you, and they will collide.
Because of hardcoded paths it will be very hard for you to test any changes without modifying production.
Without a clear division between executable and non-executable code, people are likely to put actions into scripts where they do not belong.

So here is a template for stealing routines from existing code and putting them into a procedural module.

Decide what module the routine belongs in. If the answer is none that you have, start a new module.
To start a new module create a file Foo.pm, and in it type the following template:
```
package Foo;
use Exporter;
@ISA = 'Exporter';
@EXPORT_OK = qw();
use strict;

# Your subs will go here.
1;
[download]
```
The word "Foo" must match the module name (with the usual conversion between the package separator :: and the path /).
Copy the subroutine into the module.
Put the name of the subroutine in the @EXPORT_OK list.
Comment out the original subroutine.
Put use Foo qw(sub_name); back in the original script.
Test. (Often the subroutine will have dependencies that also need to go into the module.)
Roll out.

lib

[reply]
[d/l]


Syntactic Confectionery Delight
	PerlMonks