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   83 use Exporter;
  16         26  
  16         472  
3 16     16   62 use strict;
  16         29  
  16         239  
4 16     16   63 use warnings;
  16         25  
  16         1048  
5              
6             our $VERSION = '0.27';
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   82 use constant DISPLAY_NONE => 0; # trace off
  16         34  
  16         1151  
17 16     16   82 use constant DISPLAY_TERSE => 1; # concise - 1 trace line per stmnt
  16         33  
  16         681  
18 16     16   84 use constant DISPLAY_GABBY => 4; # verbose - 2-5 trace lines per stmt
  16         22  
  16         622  
19 16     16   72 use constant ABBREV_SMART => 0; # strong,smart abbrev of long scalars,
  16         21  
  16         606  
20 16     16   75 use constant ABBREV_STRONG => 1; # strong abbreviation of long scalars,
  16         23  
  16         717  
21 16     16   77 use constant ABBREV_MILD_SM => 2; # mild abbreviation arrays, hashes
  16         23  
  16         634  
22 16     16   91 use constant ABBREV_MILD => 3; # mild abbreviation arrays, hashes
  16         40  
  16         619  
23 16     16   81 use constant ABBREV_NONE => 4; # no abbreviation
  16         24  
  16         830  
24              
25             # additional information to include in output
26 16   50 16   73 use constant OUTPUT_SUB => !($ENV{DUMPTRACE_NO_SUB} || 0) || 0;
  16         31  
  16         850  
27 16   50 16   91 use constant OUTPUT_PID => $ENV{DUMPTRACE_PID} || 0;
  16         32  
  16         848  
28 16   50 16   77 use constant OUTPUT_TIME => $ENV{DUMPTRACE_TIME} || 0;
  16         30  
  16         849  
29 16   50 16   80 use constant OUTPUT_COUNT => $ENV{DUMPTRACE_COUNT} || 0;
  16         36  
  16         696  
30              
31             # for interpreting list output of caller
32 16     16   79 use constant CALLER_PKG => 0; # package name
  16         24  
  16         569  
33 16     16   71 use constant CALLER_SUB => 3; # current subroutine name
  16         28  
  16         685  
34              
35             1;