--- Coro/Event/Event.pm	2001/10/28 17:00:09	1.8
+++ Coro/Event/Event.pm	2001/11/27 02:59:37	1.9
@@ -179,6 +179,17 @@
    }
 };
 
+# provide hooks for Coro::Timer
+
+package Coro::Timer;
+
+unless ($override) {
+   $override = 1;
+   *_new_timer = sub {
+      Event->timer(at => $_[0], cb => $_[1]);
+   };
+}
+
 1;
 
 =head1 AUTHOR