diff options
-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; } |