use Log::Log4perl; use DBIx::Log4perl qw(:masks); Log::Log4perl->init("myconfigfile.cfg"); $dbh = DBIx::Log4perl->connect($DSN, "user", "pass"); $dbh->dbix_l4p_setattr( 'dbix_l4p_logmask', DBIX_L4P_LOG_TXN | DBIC_L4P_LOG_CONNECT | DBIX_L4P_LOG_INPUT | DBIX_L4P_LOG_ERRCAPTURE | DBIX_L4P_LOG_ERRORS | DBIX_L4P_LOG_DBDSPECIFIC ); ...