use Mayhem::Config qw/get_config/; my $base_class_name; BEGIN { my $config = get_config(); $base_class_name = $config->perl_object_base_class; eval "use base '$base_class_name'"; eval sprintf("__PACKAGE__->set_db('Main', %s);", $config->db_connect_string); } } 1;