view release on metacpan or  search on metacpan

t/Utils.pm  view on Meta::CPAN

    utf8->import;
}

sub setup_dbh {
    shift;
    my $file = shift || ':memory:';
    DBI->connect('dbi:SQLite:'.$file,'','',{
        RaiseError => 1,
        PrintError => 0,
        AutoCommit => 1,
        sqlite_unicode => 1,
    });
}

1;