version 1.21, 2003/12/22 11:03:17
|
version 1.22, 2004/01/05 09:30:10
|
Line 127 sub Dump {
|
Line 127 sub Dump {
|
my $self = shift; |
my $self = shift; |
my $key; |
my $key; |
my $value; |
my $value; |
print "Dumping LondConnectionObject:\n"; |
print STDERR "Dumping LondConnectionObject:\n"; |
while(($key, $value) = each %$self) { |
while(($key, $value) = each %$self) { |
print "$key -> $value\n"; |
print STDERR "$key -> $value\n"; |
} |
} |
print "-------------------------------\n"; |
print "-------------------------------\n"; |
} |
} |