The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package CD::mysql;
use base qw(Class::DBI::mysql);
__PACKAGE__->set_db('Main', 'dbi:mysql:test', '', '', { RaiseError => 1 });

1;