Collapse DEBUG to 1 line

ingydotnet · Dec 17, 2014 · daec426 · daec426
1 parent 1d55fa1
commit daec426
Showing 1 changed file with 1 addition and 7 deletions.
diff --git a/lib/Inline/Module.pm b/lib/Inline/Module.pm
@@ -17,13 +17,7 @@ sub new {
 }
 
 use constant DEBUG_ON => $ENV{PERL_INLINE_MODULE_DEBUG} ? 1 : 0;
-sub DEBUG {
-    if (DEBUG_ON) {
-        print ">>>>>> ";
-        printf @_;
-        print "\n";
-    }
-}
+sub DEBUG { if (DEBUG_ON) { print "DEBUG >>> ", sprintf(@_), "\n" }}
 
 #------------------------------------------------------------------------------
 # This import serves multiple roles: