package Foo::DBI;

use base qw(Class::DBI);
use Exception::Database;

Foo::DBI->set_db(
   qw(Main DBI:vendor:database:host user pass),
   {
      RaiseError  => 1,
      PrintError  => 0,
      HandleError => sub {Exception::Database->throw($_[0])},
   },
);

1;