File Coverage

blib/lib/Devel/DumpTrace/Const.pm
Criterion Covered Total %
statement 51 51 100.0
branch n/a
condition 4 8 50.0
subroutine 17 17 100.0
pod n/a
total 72 76 94.7


line stmt bran cond sub pod time code
1             package Devel::DumpTrace::Const;
2 16     16   110 use Exporter;
  16         35  
  16         649  
3 16     16   83 use strict;
  16         31  
  16         298  
4 16     16   71 use warnings;
  16         34  
  16         1407  
5              
6             our $VERSION = '0.29';
7             our @ISA = qw(Exporter);
8             our @EXPORT = qw/
9             DISPLAY_NONE DISPLAY_TERSE DISPLAY_GABBY
10             ABBREV_SMART ABBREV_STRONG ABBREV_MILD_SM ABBREV_MILD ABBREV_NONE
11             OUTPUT_SUB OUTPUT_PID OUTPUT_TIME OUTPUT_COUNT
12             CALLER_PKG CALLER_SUB
13             /;
14              
15             # parameters for controlling how much output is produced
16 16     16   110 use constant DISPLAY_NONE => 0; # trace off
  16         46  
  16         1277  
17 16     16   105 use constant DISPLAY_TERSE => 1; # concise - 1 trace line per stmnt
  16         47  
  16         880  
18 16     16   98 use constant DISPLAY_GABBY => 4; # verbose - 2-5 trace lines per stmt
  16         46  
  16         791  
19 16     16   96 use constant ABBREV_SMART => 0; # strong,smart abbrev of long scalars,
  16         35  
  16         846  
20 16     16   100 use constant ABBREV_STRONG => 1; # strong abbreviation of long scalars,
  16         37  
  16         978  
21 16     16   106 use constant ABBREV_MILD_SM => 2; # mild abbreviation arrays, hashes
  16         32  
  16         780  
22 16     16   103 use constant ABBREV_MILD => 3; # mild abbreviation arrays, hashes
  16         56  
  16         864  
23 16     16   99 use constant ABBREV_NONE => 4; # no abbreviation
  16         40  
  16         1123  
24              
25             # additional information to include in output
26 16   50 16   110 use constant OUTPUT_SUB => !($ENV{DUMPTRACE_NO_SUB} || 0) || 0;
  16         29  
  16         1148  
27 16   50 16   115 use constant OUTPUT_PID => $ENV{DUMPTRACE_PID} || 0;
  16         41  
  16         1100  
28 16   50 16   107 use constant OUTPUT_TIME => $ENV{DUMPTRACE_TIME} || 0;
  16         49  
  16         1171  
29 16   50 16   107 use constant OUTPUT_COUNT => $ENV{DUMPTRACE_COUNT} || 0;
  16         51  
  16         973  
30              
31             # for interpreting list output of caller
32 16     16   106 use constant CALLER_PKG => 0; # package name
  16         40  
  16         802  
33 16     16   93 use constant CALLER_SUB => 3; # current subroutine name
  16         30  
  16         882  
34              
35             1;