package t::Utils; use strict; use warnings; use DBI; use Test::More; BEGIN { eval "use DBD::SQLite"; plan skip_all => 'needs DBD::SQLite for testing' if $@; } sub setup { my $dbh = DBI->connect('dbi:SQLite:'); $dbh->do('create table foo (id INTEGER PRIMARY KEY, var text)'); $dbh; } 1;