view release on metacpan or  search on metacpan

t/Utils.pm  view on Meta::CPAN

use File::Spec;
use File::Basename;
use Class::Load;

BEGIN {
    Class::Load::try_load_class('DBD::SQLite')
        or plan skip_all => 'needs DBD::SQLite for testing'
}

sub import {
    strict->import;
    warnings->import;
    utf8->import;
}

sub setup_dbh {
    my ($self, $file) = @_;
    DBI->connect('dbi:SQLite:'. $self->get_data_file_path($file),'','',{RaiseError => 1, PrintError => 0, AutoCommit => 1})
        or die DBI->errstr;
}