DBD::SQLite multiple query issue

dbd-sqlite-multiple-queries.perl

use strict;
use warnings;
use DBI;
use Test::More;

sub run {
  my ($sql, $query) = @_;

  my $sth;
  while ($query) {
    $sth = $sql->prepare_cached($query);
    $sth->execute;
    $query = $sth->{sqlite_unprepared_statements};
  }

  return $sth;
}

my %attrs = (AutoInactiveDestroy => 1, AutoCommit => 1, RaiseError => 1, PrintError => 0, sqlite_unicode => 1);
my $sql = DBI->connect('dbi:SQLite:dbname=:memory:','','',\%attrs);

my ($query, $sth, $result);

$query = "select exists(
     select 1 from sqlite_master
     where type = 'table' and name = 'mojo_migrations'
   )";
$sth = run($sql, $query);
$result = $sth->fetchall_arrayref;
ok(!$result->[0][0], "Table does not exist");

$query = 'create table if not exists mojo_migrations (
       name    text unique not null,
       version integer not null check (version >= 0)
     )';
$sth = run($sql, $query);

$query = "select exists(
     select 1 from sqlite_master
     where type = 'table' and name = 'mojo_migrations'
   )";
$sth = run($sql, $query);
$result = $sth->fetchall_arrayref;
ok($result->[0][0], "Table exists");

done_testing;