if (my $sub = $self->{DBI}->can($op)) {
  no strict 'refs';
  *$op = $sub;
}