$dbcontext = Bio::DB::SimpleDBContext->new( {
                                              -database => 'biosql'
                                              -user     => 'xxxx',
                                              -pass     => 'xxxx',
                                              -dbname   => 'biosql',
                                              -host     => 'localhost',
                                              -port     => 3306,    # optional
                                              -driver   => 'mysql',
                                            } );

##</code><code>##

# 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} = @_;
   }