summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/Crawl/Bot.pm11
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;
}