Enclose all packages blocks and add Package devel docu.

This commit is contained in:
Daniel Nichter
2011-06-28 17:50:02 -06:00
parent b4b6376be1
commit 82931ec399
35 changed files with 142 additions and 106 deletions

View File

@@ -17,7 +17,6 @@
# ###########################################################################
# ReportFormatter package $Revision: 7473 $
# ###########################################################################
package ReportFormatter;
# Package: ReportFormatter
# ReportFormatter makes columnized reports given variable-width data lines.
@@ -55,18 +54,20 @@ package ReportFormatter;
# After these adjustments, get_report() calls _truncate_headers() and
# _truncate_line_values(). These truncate output to the columns' final,
# calculated widths.
{
package ReportFormatter;
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use constant MKDEBUG => $ENV{MKDEBUG} || 0;
use List::Util qw(min max);
use POSIX qw(ceil);
eval { require Term::ReadKey };
my $have_term = $EVAL_ERROR ? 0 : 1;
use constant MKDEBUG => $ENV{MKDEBUG} || 0;
# Arguments:
# * underline_header bool: underline headers with =
# * line_prefix scalar: prefix every line with this string
@@ -435,7 +436,7 @@ sub _d {
}
1;
}
# ###########################################################################
# End ReportFormatter package
# ###########################################################################