dbiish.pl

#!/usr/bin/env perl6

use DBIish;
use Digest::SHA;
use JSON::Tiny;

sub buf_to_hex {
  $^buf.list.fmt('%02x', '');
}

try {
  print "Content-Type: text/plain\n\n";
  my $dbh = DBIish.connect('mysql',
                           :user(''),
                           :password(''),
                           :host('localhost'),
                           :port(3306),
                           :database(''),
                           RaiseError => True,
                           PrintError => True,
                           AutoCommit => True);
                           
  my $put_user  = $dbh.prepare('INSERT INTO user (email, password) VALUES (?, ?)');
  
  say $put_user.errstr; # displays: Any
  
  $put_user.execute( 'some1' , 'password' );
  
  CATCH {
    say $!;
  }

}