package LSRfm::DBI; use strict; use warnings; use base qw(Class::DBI); use Apache::Reload; use LSRfm::Config; my $config = $LSRfm::Config::DATABASE; LSRfm::DBI->connection("dbi:mysql:host=$config->{host};database=$config->{name}", $config->{dbuser}, $config->{dbpasswd}); 1;