package MakeTmpDb;
use strict;
use warnings;
use File::Temp qw(tempfile);
use File::Copy;
use DBI;

sub setup {
    my ($fh, $filename) = tempfile();
    copy('t/dbs/database.tpl',$filename) || die "Cannot copy database to tempfile $filename: $!";
    return $filename;
}

sub dbh {
    return DBI->connect(dsn());
}

sub dsn {
    my $filename = setup();
    return "dbi:SQLite:dbname=$filename";
}

1;