Return to LondConnection.pm CVS log | Up to [LON-CAPA] / loncom |
version 1.18, 2003/12/02 10:38:40 | version 1.19, 2003/12/08 20:32:17 |
---|---|
Line 129 sub Dump { | Line 129 sub Dump { |
my $value; | my $value; |
print "Dumping LondConnectionObject:\n"; | print "Dumping LondConnectionObject:\n"; |
while(($key, $value) = each %$self) { | while(($key, $value) = each %$self) { |
print STDERR "$key -> $value\n"; | print "$key -> $value\n"; |
} | } |
print "-------------------------------\n"; | print "-------------------------------\n"; |
} | } |