view release on metacpan or  search on metacpan

t/lib/Utils.pm  view on Meta::CPAN

package t::lib::Utils;
use utf8;
use strict;
use warnings;

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

my $dbh;
sub dbh {
    my $file = shift || ':memory:';
    eval qq{use DBI};

    $dbh ||= DBI->connect(