cleanup

[gitmo/Class-MOP.git] / lib / Class / MOP / Class / Immutable.pm

diff --git a/lib/Class/MOP/Class/Immutable.pm b/lib/Class/MOP/Class/Immutable.pm
index cd066cf..a94a12b 100644 (file)
--- a/lib/Class/MOP/Class/Immutable.pm
+++ b/lib/Class/MOP/Class/Immutable.pm
@@ -93,7 +93,7 @@ sub _generate_inline_constructor {
     } 0 .. (@$attrs - 1));
     $source .= ";\n" . 'return $instance';
     $source .= ";\n" . '}'; 
-    warn $source;   
+    warn $source if $options->{debug};   
     my $code = eval $source;
     confess "Could not eval the constructor :\n\n$source\n\nbecause :\n\n$@" if $@;
     return $code;