WriteMakefile( ... BUILD_REQUIRES => { "DBD::Sqlite" => 0 }, ... ); #### #!/usr/bin/perl -T use strict; use warnings; use Test::More; BEGIN { eval { require DBD::Sqlite } or plan skip_all => "This test requires DBD::Sqlite"; } ... #### use DBI qw( ); my $dbh = DBI->connect('dbi:Sponge:'); my $sth = $dbh->prepare('SELECT * FROM Table', { NAME => [qw( id value )], rows => [ [ 1, 'foo' ], [ 2, 'bar' ], ], RaiseError => 1, }); $sth->execute(); # Does nothing while (my $row = $sth->fetch()) { print("$row->[0]: $row->[1]\n"); } #### 1: foo 2: bar