sub dbh_install( $self, $dbh ) {
    my $previous_handler = $dbh->{HandleError};
    $dbh->{Callbacks} = {
      prepare => sub {
          my ($dbh, $query, $attrs) = @_;
          print "Preparing q{$query}\n"
      },
      execute => sub {
          print "Executing ", shift->{Statement}, "\n";
      }
  };
}