package WebApp::DBI;
use base 'Class::DBI';
use DBD::mysql;
use Site; # where I store db account info

WebApp::DBI->set_db('Main',
"DBI:mysql:database=$dbname;host=$hostname;port=$port", 
$dbusername, $dbpassword);
 # you can say __PACKAGE__ instead of "WebApp::DBI"

WebApp::DBI->add_constructor(all_reverse_by_id => 
'1=1 ORDER BY id DESC');
 # a query inherited by all objects

sub getdbh {
  # so we don't have to set up our own 
  # db_Main subroutine that would return a dbh
  my @dbhandles = WebApp::DBI->db_handles;
   # I use Ima::DBI->db_handles which Class::DBI
   # inherits instead of making a sub db_Main
   # as Class::DBI suggests, I'm wierd.
  my $dbh = $dbhandles[0];
  $dbh->{RaiseError} = 1;
  return $dbh;
}
1;