X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FFromData.pm;h=4a1bbe110e3031fbdb5086dc92d3725b51757460;hp=3738b66c72db767619d355c79603a1b981a23776;hb=052976d4a389b826a9551909492f3fc2f2312c88;hpb=7462160ed87d1eb2c10cb4c9e37e51dbdcb4d3f4

diff --git a/lib/Object/Remote/FromData.pm b/lib/Object/Remote/FromData.pm
index 3738b66..4a1bbe1 100644
--- 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 {