# in Bio::DB::SimpleDBContext
sub new {
   my $class = shift;
   my %args;
   if ( '-' eq substr 0,1, $_[0] ) {
      die( "Odd number of named arguments.\n" ) 
         if @_ % 2;
      while ( @_ ) {
         my $tag = shift @_;
         my $val =  shift @_;
         $args{qw/database, user, pass, dbname, host, port, driver/} = $val;
      }
   }
   else {
      my $args{arg1, arg2} = @_;
   }