use DBIx::Log4perl qw(:masks);

$DBIx::Log4perl::LogMask = DBIX_L4P_LOG_OUTPUT | DBIX_L4P_LOG_INPUT;

##</code><code>##

                            (binary)
DBIX_L4P_LOG_INPUT     1    00000001
DBIX_L4P_LOG_OUTPUT    2    00000010

##</code><code>##

    00000001
    00000010
    --------
    00000011