#!/usr/bin/perl # modtest.pl ####################################################### # Setup variables and packages ####################################################### use strict; use warnings; use diagnostics; use lib './lib'; use CART::Validate; ####################################################### # MAIN ####################################################### print qq(The module version is $CART::Validate::VERSION\n); my $testing = testMod(); print qq(The return value from testMod is $testing\n); exit; #### # CART::Validate package CART::Validate; BEGIN { use Exporter; our( @ISA, @EXPORT, @EXPORT_OK, $VERSION ); @ISA = qw( Exporter ); @EXPORT = qw( &testMod ); @EXPORT_OK = qw(); $VERSION = 1.00; } sub testMod { return "HELLO!"; } 1;