From 912f2fa91fee87fa5029c826f4d40bcc434f127f Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Sun, 8 Oct 2017 18:43:51 +0100
Subject: [PATCH] better debug logging

---
 lib/App/Netdisco/Worker/Runner.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/App/Netdisco/Worker/Runner.pm b/lib/App/Netdisco/Worker/Runner.pm
index 98275fe4..f882d0f1 100644
--- a/lib/App/Netdisco/Worker/Runner.pm
+++ b/lib/App/Netdisco/Worker/Runner.pm
@@ -81,7 +81,7 @@ sub run_workers {
   (my $phase = $hook) =~ s/^nd2_core_//;
 
   return unless scalar @{ $store->get_hooks_for($hook) };
-  debug "running workers for hook: $hook";
+  debug "=> running workers for phase: $phase";
 
   foreach my $worker (@{ $store->get_hooks_for($hook) }) {
     try {
@@ -95,13 +95,13 @@ sub run_workers {
           if ($phase =~ m/^(?:check|early|main)$/)
              and $retval->level >= $self->jobstat->level;
 
-        debug $retval->log if $retval->log;
+        debug ('=> '. $retval->log) if $retval->log;
       }
     }
     # errors at most phases are ignored
     catch {
       $self->jobstat->error($_) if $phase eq 'check';
-      debug $_ if $_;
+      debug "=> $_" if $_;
     };
   }
 }