Make debugging output for MOP_PRINT_SOURCE a little nicer

[gitmo/Class-MOP.git] / lib / Class / MOP / Method / Generated.pm

diff --git a/lib/Class/MOP/Method/Generated.pm b/lib/Class/MOP/Method/Generated.pm
index 1481e96..e9b4ed3 100644 (file)
--- a/lib/Class/MOP/Method/Generated.pm
+++ b/lib/Class/MOP/Method/Generated.pm
@@ -50,7 +50,7 @@ sub _eval_closure {
                 } keys %$__captures
             ),
             $_[2];
-        print STDERR $_[0]->name, ' ', $source, "\n" if _PRINT_SOURCE;
+        print STDERR "\n", $_[0]->name, ":\n", $source, "\n" if _PRINT_SOURCE;
         $code = eval $source;
         $@;
     };