File Coverage

blib/lib/DBIx/Log4perl/Constants.pm
Criterion Covered Total %
statement 42 42 100.0
branch n/a
condition n/a
subroutine 14 14 100.0
pod n/a
total 56 56 100.0


line stmt bran cond sub pod time code
1 2     2   12 use strict;
  2         3  
  2         82  
2 2     2   12 use warnings;
  2         3  
  2         138  
3              
4             package DBIx::Log4perl::Constants;
5             require Exporter;
6             our @ISA = qw(Exporter);
7              
8 2     2   13 use constant DBIX_L4P_LOG_DEFAULT => 0xdd;
  2         3  
  2         119  
9 2     2   11 use constant DBIX_L4P_LOG_ALL => 0xffffff;
  2         2  
  2         90  
10 2     2   10 use constant DBIX_L4P_LOG_INPUT => 0x1;
  2         4  
  2         99  
11 2     2   9 use constant DBIX_L4P_LOG_OUTPUT => 0x2;
  2         3  
  2         81  
12 2     2   10 use constant DBIX_L4P_LOG_CONNECT => 0x4;
  2         19  
  2         112  
13 2     2   10 use constant DBIX_L4P_LOG_TXN => 0x8;
  2         3  
  2         130  
14 2     2   9 use constant DBIX_L4P_LOG_ERRCAPTURE => 0x10;
  2         4  
  2         87  
15 2     2   9 use constant DBIX_L4P_LOG_WARNINGS => 0x20;
  2         11  
  2         102  
16 2     2   10 use constant DBIX_L4P_LOG_ERRORS => 0x40;
  2         4  
  2         121  
17 2     2   12 use constant DBIX_L4P_LOG_DBDSPECIFIC => 0x80;
  2         3  
  2         93  
18 2     2   9 use constant DBIX_L4P_LOG_DELAYBINDPARAM => 0x100;
  2         4  
  2         85  
19 2     2   11 use constant DBIX_L4P_LOG_SQL => 0x200;
  2         4  
  2         347  
20              
21             our $LogMask = DBIX_L4P_LOG_DEFAULT;
22              
23             our @EXPORT = ();
24             our @EXPORT_OK = qw ($LogMask);
25             our @EXPORT_MASKS = qw(DBIX_L4P_LOG_DEFAULT
26             DBIX_L4P_LOG_ALL
27             DBIX_L4P_LOG_INPUT
28             DBIX_L4P_LOG_OUTPUT
29             DBIX_L4P_LOG_CONNECT
30             DBIX_L4P_LOG_TXN
31             DBIX_L4P_LOG_ERRCAPTURE
32             DBIX_L4P_LOG_WARNINGS
33             DBIX_L4P_LOG_ERRORS
34             DBIX_L4P_LOG_DBDSPECIFIC
35             DBIX_L4P_LOG_DELAYBINDPARAM
36             DBIX_L4P_LOG_SQL
37             );
38             our %EXPORT_TAGS = (masks => \@EXPORT_MASKS);
39             Exporter::export_ok_tags('masks');
40              
41              
42             1;