use strict; use warnings; package Ox::WebMail::DBI; use vars '$VERSION'; $VERSION = '0.01'; use Ox::WebMail::Consts (); use base 'Class::DBI'; ->set_db( 'Main', Ox::WebMail::Consts::DATABASE_SOURCE, Ox::WebMail::Consts::DATABASE_USERNAME, Ox::WebMail::Consts::DATABASE_PASSWORD, ); 1;