use strict; use warnings; use FindBin (); use lib "$FindBin::Bin"; use TMod; use Test::More tests => 5; ok( 1 == 1, "mytest1" ); TMod::sub1(); ok( 3 == 4, "mytest3" ); ok( 4 == 4, "mytest4" );