Class::DBI::FromCGI => 0.94,
Class::DBI::Loader::Relationship => 0,
Class::DBI => 0.96,
+ Class::DBI::SQLite => 0,
CGI::Untaint => 0,
UNIVERSAL::moniker => 0,
UNIVERSAL::require => 0,
+ URI::QueryParam => 0,
CGI::Simple => 0,
Template => 0,
Template::Plugin::Class => 0,
+ Test::MockModule => 0,
}, # e.g., Module::Name => 1.1
(
$] >= 5.005
),
);
+sub has_module {
+ my ($module, $version) = @_;
+ (my $file = "$module.pm") =~ s/::/\//g;
+ eval {require $file} or return;
+ return ($module->VERSION || 0) >= $version;
+}
+
if ( !-e "t/beerdb.db" ) {
print "Making SQLite DB\n";
eval { require DBD::SQLite };