view release on metacpan or  search on metacpan

t/testlib/TestDB.pm  view on Meta::CPAN

use testlib::Schema;

sub import {
    my $class  = shift;
    my $caller = caller();

    my $dbh = DBI->connect(
        "dbi:SQLite:dbname=:memory:",
        "", "",
        {   RaiseError     => 1,
            sqlite_unicode => 1,
        }
    );

    $dbh->do( "
CREATE TABLE test (
    id integer primary key not null,
    no_class text,
    fixed_class text,
    array text,
    data text,