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   105 use Exporter;
  16         28  
  16         576  
3 16     16   78 use strict;
  16         30  
  16         288  
4 16     16   62 use warnings;
  16         32  
  16         1314  
5              
6             our $VERSION = '0.28';
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   95 use constant DISPLAY_NONE => 0; # trace off
  16         41  
  16         1350  
17 16     16   97 use constant DISPLAY_TERSE => 1; # concise - 1 trace line per stmnt
  16         25  
  16         785  
18 16     16   81 use constant DISPLAY_GABBY => 4; # verbose - 2-5 trace lines per stmt
  16         28  
  16         750  
19 16     16   84 use constant ABBREV_SMART => 0; # strong,smart abbrev of long scalars,
  16         28  
  16         722  
20 16     16   83 use constant ABBREV_STRONG => 1; # strong abbreviation of long scalars,
  16         28  
  16         859  
21 16     16   85 use constant ABBREV_MILD_SM => 2; # mild abbreviation arrays, hashes
  16         29  
  16         676  
22 16     16   92 use constant ABBREV_MILD => 3; # mild abbreviation arrays, hashes
  16         42  
  16         743  
23 16     16   93 use constant ABBREV_NONE => 4; # no abbreviation
  16         31  
  16         997  
24              
25             # additional information to include in output
26 16   50 16   98 use constant OUTPUT_SUB => !($ENV{DUMPTRACE_NO_SUB} || 0) || 0;
  16         35  
  16         933  
27 16   50 16   103 use constant OUTPUT_PID => $ENV{DUMPTRACE_PID} || 0;
  16         29  
  16         934  
28 16   50 16   98 use constant OUTPUT_TIME => $ENV{DUMPTRACE_TIME} || 0;
  16         33  
  16         985  
29 16   50 16   94 use constant OUTPUT_COUNT => $ENV{DUMPTRACE_COUNT} || 0;
  16         36  
  16         851  
30              
31             # for interpreting list output of caller
32 16     16   92 use constant CALLER_PKG => 0; # package name
  16         24  
  16         645  
33 16     16   77 use constant CALLER_SUB => 3; # current subroutine name
  16         28  
  16         803  
34              
35             1;