log loaded data files and nodes

diff --git a/lib/System/Introspector/Report/Source.pm b/lib/System/Introspector/Report/Source.pm
index e71d075..5371ea7 100644 (file)
--- a/lib/System/Introspector/Report/Source.pm
+++ b/lib/System/Introspector/Report/Source.pm
@@ -3,6 +3,7 @@ use Moo;
 use JSON::PP;
 use IO::All;
 use Module::Runtime qw( use_module );
+use Log::Contextual qw( :log );
 
 my $_json = JSON::PP->new->utf8->relaxed->allow_nonref;
 
@@ -29,6 +30,7 @@ sub generate {
     my ($id, $path) = @$dir_spec;
     my $data = $self->_load_dataset($path, $required)
       or next;
+    log_debug { "loading node '$id' from '$path'" };
     $_->collect_from($id, $data)
       for @generators;
   }