got all general logging done, start of adding ids to objects and incorporating ids...

[scpubgit/Object-Remote.git] / lib / Object / Remote / FromData.pm

diff --git a/lib/Object/Remote/FromData.pm b/lib/Object/Remote/FromData.pm
index 3738b66..4a1bbe1 100644 (file)
--- a/lib/Object/Remote/FromData.pm
+++ b/lib/Object/Remote/FromData.pm
@@ -2,6 +2,7 @@ package Object::Remote::FromData;
 
 use strictures 1;
 use Object::Remote;
+use Object::Remote::Logging qw ( :log );
 
 our %Modules;
 our %Not_Loaded_Yet;
@@ -9,12 +10,16 @@ our %Seen;
 
 sub import {
   my $target = caller;
+  log_trace { "import has been invoked by '$target' on " . __PACKAGE__ };
   return if $Seen{$target};
+  log_debug { "'$target' has not yet loaded " . __PACKAGE__ };
   $Seen{$target} = $Not_Loaded_Yet{$target} = 1;
 }
 
 sub flush_loaded {
+  log_debug { "flushing the loaded classes" };
   foreach my $key (keys %Not_Loaded_Yet) {
+    log_trace { "flushing '$key'" };
     my $data_fh = do { no strict 'refs'; *{"${key}::DATA"} };
     my $data = do { local $/; <$data_fh> };
     my %modules = reverse(
@@ -24,6 +29,7 @@ sub flush_loaded {
     @Modules{keys %modules} = values %modules;
     delete $Not_Loaded_Yet{$key};
   }
+  log_trace { "done flushing loaded classes" };
 }
 
 sub find_module {