decrease indent in method generator
Alex J. G. BurzyƄski [Fri, 26 Aug 2011 09:20:29 +0000 (11:20 +0200)]
lib/Method/Generate/BuildAll.pm

index b3bb91c..ace0e28 100644 (file)
@@ -10,9 +10,9 @@ use B 'perlstring';
 sub generate_method {
   my ($self, $into) = @_;
   quote_sub "${into}::BUILDALL", join '',
-           $self->_handle_subbuild($into),
+    $self->_handle_subbuild($into),
     qq{    my \$self = shift;\n},
-           $self->buildall_body_for($into, '$self', '@_'),
+    $self->buildall_body_for($into, '$self', '@_'),
     qq{    return \$self\n};
 }