+sub has_module_version {
+ my ($module, $version) = @_;
+
+ local $@;
+ eval qq{
+ require $module;
+ "$module"->VERSION(\$version);
+ 1;
+ }
+}
+
+sub has_test_more_version { has_module_version 'Test::More', @_ }
+sub has_exporter_version { has_module_version 'Exporter', @_ }
+