db.p6

use DBIish;

my @promises;
@promises.push: start fetch();
@promises.push: start fetch();
my @answers = await @promises;
say @answers;

sub fetch {
  my $dbh = DBIish.connect('SQLite', :database<test.sqlite>);
  my $sth = $dbh.prepare("select * from info");
}



# Multiple exceptions were thrown by LEAVE/POST phasers
#
#    unlock when we're not locked!
#      in block  at /home/hinrik/src/rakudo-star-2016.04/install/share/perl6/site/sources/3EA876C6AC912AF3692CEF8EEF5E9033C03F7507 (DBIish) line 54
#      in any  at /home/hinrik/.perl6/precomp/D7820A4EF6D97B780F45CAC4B50C4E6E59589690.1465396824.84914/3E/3EA876C6AC912AF3692CEF8EEF5E9033C03F7507 line 1
#      in method install-driver at /home/hinrik/src/rakudo-star-2016.04/install/share/perl6/site/sources/3EA876C6AC912AF3692CEF8EEF5E9033C03F7507 (DBIish) line 58
#      in method connect at /home/hinrik/src/rakudo-star-2016.04/install/share/perl6/site/sources/3EA876C6AC912AF3692CEF8EEF5E9033C03F7507 (DBIish) line 44
#      in sub fetch at talk.p6 line 10
#      in code  at talk.p6 line 5
#
#    unlock when we're not locked!
#      in block  at /home/hinrik/src/rakudo-star-2016.04/install/share/perl6/site/sources/3EA876C6AC912AF3692CEF8EEF5E9033C03F7507 (DBIish) line 54
#      in any  at /home/hinrik/.perl6/precomp/D7820A4EF6D97B780F45CAC4B50C4E6E59589690.1465396824.84914/3E/3EA876C6AC912AF3692CEF8EEF5E9033C03F7507 line 1
#      in method install-driver at /home/hinrik/src/rakudo-star-2016.04/install/share/perl6/site/sources/3EA876C6AC912AF3692CEF8EEF5E9033C03F7507 (DBIish) line 58
#      in method connect at /home/hinrik/src/rakudo-star-2016.04/install/share/perl6/site/sources/3EA876C6AC912AF3692CEF8EEF5E9033C03F7507 (DBIish) line 44
#      in sub fetch at talk.p6 line 10
#      in code  at talk.p6 line 5