view release on metacpan or  search on metacpan

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

9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
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,
});