sub _setup_dbh
{
  my $self = shift;
  my $dbh = DBI->connect($foo);
  *{ref($dbh)."dbq"} = sub { print "I am dbq" };
}