From e173298f94633a67a972ac80a508c4d2a66b767f Mon Sep 17 00:00:00 2001
From: Neil Moore <neil@s-z.org>
Date: Mon, 18 Mar 2013 23:37:22 -0500
Subject: Improve debugging messages.

---
 lib/Crawl/Bot.pm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/lib/Crawl/Bot.pm b/lib/Crawl/Bot.pm
index f6bf7b9..21b6a33 100644
--- a/lib/Crawl/Bot.pm
+++ b/lib/Crawl/Bot.pm
@@ -60,12 +60,15 @@ before say => sub {
 
 sub tick {
     my $self = shift;
-    warn "Checking for updates...";
+    print STDERR "Checking for updates at " . localtime() . ":\n";
     for (@{ $self->plugins }) {
-        warn "...$_";
-        $_->tick
+        print STDERR " --- " . ref($_);
+
+        my $before = time;
+        $_->tick;
+        printf STDERR " [%d sec]\n", time - $before
     }
-    warn "Done";
+    print STDERR "Done\n";
     return $self->update_time;
 }
 
-- 
cgit v1.2.3-54-g00ecf