--- deliantra/server/lib/cf.pm	2010/04/12 05:22:38	1.513
+++ deliantra/server/lib/cf.pm	2010/04/12 17:13:36	1.514
@@ -401,7 +401,7 @@
 =item cf::periodic $interval, $cb
 
 Like EV::periodic, but randomly selects a starting point so that the actions
-get spread over timer.
+get spread over time.
 
 =cut
 
@@ -591,6 +591,17 @@
    wantarray ? @res : $res[-1]
 }
 
+sub objinfo {
+   (
+      "counter value"     => cf::object::object_count,
+      "objects created"   => cf::object::create_count,
+      "objects destroyed" => cf::object::destroy_count,
+      "freelist size"     => cf::object::free_count,
+      "allocated objects" => cf::object::objects_size,
+      "active objects"    => cf::object::actives_size,
+   )
+}
+
 =item $coin = coin_from_name $name
 
 =cut