The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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;