--- AnyEvent/lib/AnyEvent/Log.pm	2011/08/25 05:39:47	1.36
+++ AnyEvent/lib/AnyEvent/Log.pm	2011/08/26 00:37:26	1.39
@@ -113,7 +113,7 @@
 use POSIX ();
 
 use AnyEvent (); BEGIN { AnyEvent::common_sense }
-use AnyEvent::Util ();
+#use AnyEvent::Util (); need to load this in a delayed fashion, as it uses AE::log
 
 our $VERSION = $AnyEvent::VERSION;
 
@@ -208,10 +208,21 @@
    trace    => 9,
 );
 
-sub now () { time }
+our $TIME_EXACT;
+
+sub exact_time($) {
+   $TIME_EXACT = shift;
+   *_ts = $AnyEvent::MODEL
+      ? $TIME_EXACT ? \&AE::now : \&AE::time
+      : sub () { $TIME_EXACT ? do { require Time::HiRes; Time::HiRes::time () } : time };
+}
+
+BEGIN {
+   exact_time 0;
+}
 
 AnyEvent::post_detect {
-   *now = \&AE::now;
+   exact_time $TIME_EXACT;
 };
 
 our @LEVEL2STR = qw(0 fatal alert crit error warn note info debug trace);
@@ -254,7 +265,7 @@
                   $format = $format->() if ref $format;
                   $format = sprintf $format, @args if @args;
                   $format =~ s/\n$//;
-                  $now = now;
+                  $now = _ts;
                };
 
                # format msg
@@ -359,10 +370,11 @@
 
    _reassess $logger+0;
 
-   my $guard = AnyEvent::Util::guard {
+   require AnyEvent::Util;
+   my $guard = AnyEvent::Util::guard (sub {
       # "clean up"
       delete $LOGGER{$logger+0};
-   };
+   });
 
    sub {
       $guard if 0; # keep guard alive, but don't cause runtime overhead
@@ -378,6 +390,21 @@
       @_
 }
 
+=item AnyEvent::Log::exact_time $on
+
+By default, C<AnyEvent::Log> will use C<AE::now>, i.e. the cached
+eventloop time, for the log timestamps. After calling this function with a
+true value it will instead resort to C<AE::time>, i.e. fetch the current
+time on each log message. This only makes a difference for event loops
+that actually cache the time (such as L<EV> or L<AnyEvent::Loop>).
+
+This setting can be changed at any time by calling this function.
+
+Since C<AnyEvent::Log> has to work even before the L<AnyEvent> has been
+initialised, this switch will also decide whether to use C<CORE::time> or
+C<Time::HiRes::time> when logging a message before L<AnyEvent> becomes
+available.
+
 =back
 
 =head1 LOGGING CONTEXTS