view release on metacpan or  search on metacpan

t/scripts/create_table_foo.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 foo(a,b)');
my $result = $db->selectall_arrayref('PRAGMA table_info(foo)');
if( eval { $result->[0]->[1] eq 'a' && $result->[1]->[1] eq 'b' } ) {
    $db->commit && exit 0;
}
else {
    $db->rollback && die 'create_table_foo.pl failed';
}