view release on metacpan or  search on metacpan

t/01_csv.t  view on Meta::CPAN

use File::Temp qw/tempdir tempfile/;
use DBIx::CSVDumper;
use Test::Requires qw/DBD::SQLite DBI/;

my $dir = tempdir(CLEANUP => 1);
my (undef, $db) = tempfile(DIR => $dir, SUFFIX => '.db');

my $dbh = DBI->connect(
    "dbi:SQLite:dbname=$db" , '', '', {
         sqlite_unicode => 1,
     },
);

$dbh->do('CREATE TABLE item (
    id INTEGER PRIMARY KEY AUTOINCREMENT,
    name VARCHAR(255) NOT NULL
);');

my @datas = (
    [1  => 'hoge'],