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