| Subject: | POD renders poorly on CPAN and with perldoc |
The POD renders poorly on CPAN and using perldoc:
http://search.cpan.org/perldoc?Devel::DumpTrace
The POD renders as expected if I delete the =pod block starting with:
=pod refactored 0.15 moved to Devel::DumpTrace::Const
I enclosed a patch (diff.patch).
Here is the poorly rendered POD:
perldoc Devel::DumpTrace
use constant DISPLAY_NONE => 0; # trace off use constant DISPLAY_TERSE
=> 1;
# concise - 1 trace line per stmnt use constant DISPLAY_GABBY => 4; #
verbose
- 2-5 trace lines per stmt use constant ABBREV_SMART => 0; # strong,smart
abbrev of long scalars, use constant ABBREV_STRONG => 1; # strong
abbreviation of long scalars, use constant ABBREV_MILD_SM => 2; # mild
abbreviation arrays, hashes use constant ABBREV_MILD => 3; # mild
abbreviation arrays, hashes use constant ABBREV_NONE => 4; # no
abbreviation
# include subroutine name in trace output? use constant
OUTPUT_SUB =>
!($ENV{DUMPTRACE_NO_SUB} || 0) || 0; use constant OUTPUT_PID =>
$ENV{DUMPTRACE_PID} || 0; use constant OUTPUT_TIME =>
$ENV{DUMPTRACE_TIME} || 0; use constant OUTPUT_COUNT =>
$ENV{DUMPTRACE_COUNT} || 0;
# for interpreting list output of caller use constant CALLER_PKG
=> 0;
# package name use constant CALLER_SUB => 3; # current subroutine
name
NAME
Devel::DumpTrace - Evaluate and print out each line before it is
executed.
VERSION
0.15
SYNOPSIS
perl -d:DumpTrace program.pl
perl -d:DumpTrace=verbose program.pl
perl -d:DumpTrace=quiet program.pl
perl -d:DumpTrace=<n> program.pl
perl -d:DumpTrace::PPI program.pl
perl -d:DumpTrace::noPPI program.pl
| Subject: | diff.patch |
--- DumpTrace.pm.15 2011-11-29 13:45:29.000000000 -0500
+++ DumpTrace.pm 2012-06-06 13:28:49.000000000 -0400
@@ -40,28 +40,6 @@
# compile Devel::DumpTrace::Const AFTER the environment is processed
use Devel::DumpTrace::Const;
-=pod refactored 0.15 moved to Devel::DumpTrace::Const
-
-use constant DISPLAY_NONE => 0; # trace off
-use constant DISPLAY_TERSE => 1; # concise - 1 trace line per stmnt
-use constant DISPLAY_GABBY => 4; # verbose - 2-5 trace lines per stmt
-use constant ABBREV_SMART => 0; # strong,smart abbrev of long scalars,
-use constant ABBREV_STRONG => 1; # strong abbreviation of long scalars,
-use constant ABBREV_MILD_SM => 2; # mild abbreviation arrays, hashes
-use constant ABBREV_MILD => 3; # mild abbreviation arrays, hashes
-use constant ABBREV_NONE => 4; # no abbreviation
-
-# include subroutine name in trace output?
-use constant OUTPUT_SUB => !($ENV{DUMPTRACE_NO_SUB} || 0) || 0;
-use constant OUTPUT_PID => $ENV{DUMPTRACE_PID} || 0;
-use constant OUTPUT_TIME => $ENV{DUMPTRACE_TIME} || 0;
-use constant OUTPUT_COUNT => $ENV{DUMPTRACE_COUNT} || 0;
-
-# for interpreting list output of caller
-use constant CALLER_PKG => 0; # package name
-use constant CALLER_SUB => 3; # current subroutine name
-
-=cut
our $VERSION = '0.15';
our $ARRAY_ELEM_SEPARATOR = ',';