BEGIN {
require Exporter;
- $VERSION = 1.00; # set the version for version checking
+ $VERSION = 3.07.00.049; # set the version for version checking
$debug = $ENV{DEBUG} || 0;
@ISA = qw(Exporter);
@EXPORT_OK = qw(&maxwidth &hashdump);
}
-sub maxwidth (@) {
+sub maxwidth {
(@_) or return 0;
return (sort {$a <=> $b} map {length} @_)[-1];
}
-sub hashdump ($$) {
+sub hashdump {
my $pre = shift;
my $val = shift;
if (ref($val) =~ /HASH/) {