DBIx-Deployer
view release on metacpan - search on metacpan
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';
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.521 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )