diff options
author | Neil Moore <neil@s-z.org> | 2013-03-18 23:37:22 -0500 |
---|---|---|
committer | Neil Moore <neil@s-z.org> | 2013-03-18 23:37:22 -0500 |
commit | e173298f94633a67a972ac80a508c4d2a66b767f (patch) | |
tree | a419c72d6dddb702d42648624027e46026148b4c | |
parent | 32bf53e5967918c0ffdd2e9515022a6b74f2b820 (diff) | |
download | crawlbot-e173298f94633a67a972ac80a508c4d2a66b767f.tar.gz crawlbot-e173298f94633a67a972ac80a508c4d2a66b767f.zip |
Improve debugging messages.
-rw-r--r-- | lib/Crawl/Bot.pm | 11 |
1 files 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; } |