version 1.21, 2003/12/22 11:03:17
|
version 1.23, 2004/01/06 09:35:22
|
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 STDERR "-------------------------------\n"; |
} |
} |
|
|
=pod |
=pod |