From: Robert 'phaylon' Sedlacek <r.sedlacek@shadowcat.co.uk>
Date: Wed, 3 Oct 2012 19:57:00 +0000 (+0000)
Subject: add basic timings for start/done log messages
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d23c8d13ca9aafc4331d5992930f43c66b93c36e;p=scpubgit%2FSystem-Introspector-Report.git

add basic timings for start/done log messages
---

diff --git a/bin/system-introspector-report b/bin/system-introspector-report
index 288948e..66b52a7 100755
--- a/bin/system-introspector-report
+++ b/bin/system-introspector-report
@@ -34,7 +34,9 @@ my $logger = Log::Contextual::SimpleLogger->new({
 });
 set_logger $logger;
 
-log_info { 'Starting' };
+my $timed = sub { sprintf shift, scalar localtime };
+
+log_info { 'Starting at %s'->$timed };
 
 my $config = System::Introspector::Report::Config
   ->new(config_file => log_info { "Loading config '$_[0]'" } $config_file);
@@ -58,7 +60,7 @@ for my $publisher ($config->publishers(@publish_types)) {
   };
 }
 
-log_info { "Done" };
+log_info { 'Done at %s'->$timed };
 
 __END__