view release on metacpan or  search on metacpan

t/010-basic/000-setup.t  view on Meta::CPAN

my $temp_root = '/tmp';
if( $^O =~ m{win32}i )
{
  $temp_root = $ENV{TEMP} || $ENV{TMP};
}# end if()

my $dbfile = "$temp_root/db_asp4";
open my $ofh, '>', $dbfile
  or die "Cannot open '$dbfile' for writing: $!";
binmode($ofh);
SCOPE: {
  no warnings 'uninitialized';
  print $ofh undef;
};
close($ofh);

my $dbh = DBI->connect("DBI:SQLite:dbname=$dbfile", "", "", {
  RaiseError => 1,
});