Add a DEBUG feature to get more info

triggered by env var. Can use constant later to fold out.
ingydotnet · Dec 5, 2014 · 0eb056c · 0eb056c
1 parent 4a66c20
commit 0eb056c
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/lib/Inline/Module.pm b/lib/Inline/Module.pm
@@ -16,6 +16,13 @@ sub new {
     return bless {@_}, $class;
 }
 
+sub DEBUG {
+    return unless $ENV{PERL_INLINE_MODULE_DEBUG};
+    print ">>>>>> ";
+    printf @_;
+    print "\n";
+}
+
 #------------------------------------------------------------------------------
 # This import serves multiple roles:
 # - -MInline::Module=autostub
@@ -25,6 +32,7 @@ sub new {
 #------------------------------------------------------------------------------
 sub import {
     my $class = shift;
+    DEBUG "Inline::Module::import(@_)";
 
     my ($inline_module, $program) = caller;
 
@@ -89,6 +97,7 @@ sub importer {
             name => $inline_module,
         );
         my $class = shift;
+        DEBUG "Inline::Module proxy to Inline::%s", @_;
         Inline->import_heavy(@_);
     };
 }