view release on metacpan or  search on metacpan

t/scripts/create_table_bar.pl  view on Meta::CPAN

#!/usr/bin/env perl
use Modern::Perl;
use DBI;

my $db = DBI->connect('dbi:SQLite:' . $ARGV[0]);
$db->begin_work;
$db->do('CREATE TABLE bar (a,b) bad sql or something');
my $result = $db->selectall_arrayref('PRAGMA table_info(bar)');
if( eval { $result->[0]->[1] eq 'a' && $result->[1]->[1] eq 'b' } ) {
    $db->commit && exit 0;
}
else {
    $db->rollback && die 'create_table_bar.pl failed';
}