version 1.36, 2005/02/06 07:39:49
|
version 1.37, 2005/05/27 21:49:18
|
Line 157 sub Dump {
|
Line 157 sub Dump {
|
my $now = time; |
my $now = time; |
my $local = localtime($now); |
my $local = localtime($now); |
|
|
if ($level <= $DebugLevel) { |
if ($level >= $DebugLevel) { |
return; |
return; |
} |
} |
|
|
Line 165 sub Dump {
|
Line 165 sub Dump {
|
my $key; |
my $key; |
my $value; |
my $value; |
print STDERR "[ $local ] Dumping LondConnectionObject:\n"; |
print STDERR "[ $local ] Dumping LondConnectionObject:\n"; |
|
print STDERR join(':',caller(1))."\n"; |
while(($key, $value) = each %$self) { |
while(($key, $value) = each %$self) { |
print STDERR "$key -> $value\n"; |
print STDERR "$key -> $value\n"; |
} |
} |