sub BUILDARGS {
   my ($class, $dbh) = @_;
   { dbh => $dbh };
}