package # LogTest; use strict; use warnings; use LogTest::Schema; sub init_schema { my $self = shift(); my $schema = LogTest::Schema->connect($self->_database()); $schema->deploy; return $schema; } sub _database { my $self = shift(); my $db = 't/var/LogTest.db'; unlink($db) if -e $db; unlink($db.'-journal') if -e $db.'-journal'; mkdir('t/var') unless -d 't/var'; my $dsn = "dbi:SQLite:$db"; my @connect = ($dsn, '', '', { AutoCommit => 1}); return @connect; } 1;