add basic timings for start/done log messages

diff --git a/bin/system-introspector-report b/bin/system-introspector-report
index 288948e..66b52a7 100755 (executable)
--- 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__