use strict; use warnings; use Test::ModuleVersion; use FindBin; # Create module test my $tm = Test::ModuleVersion->new; $tm->before(<<'EOS'); use 5.008007; =pod run mvt.pl to create this module version test(t/module.t). perl mvt.pl =cut EOS $tm->lib(['../extlib/lib/perl5']); $tm->test_script(output => "$FindBin::Bin/t/module.t"); 1;