-sub get_subroutine {
- my ($stash, $name) = @_;
-
- my $glob = $stash->{$name};
- return undef unless $glob;
-
- return *$glob{CODE};
-}
-
-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', @_ }