in reply to Production / Development on the same server.
From 'perldoc -f use',
use Module VERSION LIST
...
If the VERSION argument is present between Module and LIST, then the "use" will call the VERSION method in class Module with the given version as an argument. The default VERSION method, inherited from the UNIVERSAL class, croaks if the given version is larger than the value of the variable $Module::VERSION.
That means you can supply a sub VERSION() which has any behavior you like. Your stated desire would go like (untested),
package Some::Module; use vars qw/$VERSION/; $VERSION = 0.5; sub VERSION { croak unless $_[0] == $VERSION }
After Compline,
Zaxo
|
|---|