File Coverage

blib/lib/DBICx/Modeler/Carp.pm
Criterion Covered Total %
statement 15 17 88.2
branch 2 4 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 22 26 84.6


line stmt bran cond sub pod time code
1             package DBICx::Modeler::Carp;
2              
3 1     1   6 use strict;
  1         2  
  1         30  
4 1     1   6 use warnings;
  1         2  
  1         81  
5              
6             our $TRACE = sub { print STDERR join "", @_, "\n" };
7              
8 1     1   1145 use Carp::Clan::Share;
  1         6493  
  1         10  
9 1     1   264 use constant TRACE_DEFAULT => 0;
  1         2  
  1         118  
10 1 50   1   6 use constant TRACE => (exists $ENV{DBIC_MODELER_TRACE} ? $ENV{DBIC_MODELER_TRACE} : TRACE_DEFAULT) ? sub { $TRACE->(@_) } : sub {};
  1 50       2  
  1         67  
  0            
  0            
11              
12             1;