#======================
#BEGIN MODULE VALIDATOR
#======================
#!/usr/intel/bin/perl -dw

use vars qw( $TOP_MODULE $DEBUG );

use pm::Common;

use package_name::module;

$DEBUG=0;
$TOP_MODULE="Module Validator";

&error(-1, "Inappropriate arguments specified! One, and only one, module must be defined") if($#ARGV != 0);

&error(-2, "Bad module syntax. Only a-z, A-Z, 0-9, '_'  are allowed for the name, with :: as package scoping separators") if($ARGV[0] =~ /[^\w:\.]/);

local $@=0;

eval 'require "'.$ARGV[0].'";';

if($@) {
	&error(1, "Failed include stage for '$ARGV[0]'. Error message:\n$@");
} else {

# ...

}

print "$ARGV[0]: Valid\n";

sub error { &Common::error(@_); }

#======================
#END MODULE VALIDATOR
#======================