From: Dave Rolsky <autarch@houseabsolute.urth.org>
Date: Tue, 31 Mar 2009 15:38:22 +0000 (-0500)
Subject: Fix some bizarro indentation with perltidy
X-Git-Tag: 0.73_01~19
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9cc1dd574ec5c345541c92a4365454a50528c751;p=gitmo%2FMoose.git

Fix some bizarro indentation with perltidy
---

diff --git a/lib/Moose/Meta/Method/Constructor.pm b/lib/Moose/Meta/Method/Constructor.pm
index 1830e5c..4205c38 100644
--- a/lib/Moose/Meta/Method/Constructor.pm
+++ b/lib/Moose/Meta/Method/Constructor.pm
@@ -116,14 +116,14 @@ sub attributes    { (shift)->{'attributes'}    }
 ## method
 
 sub _generate_params {
-  my ($self, $var, $class_var) = @_;
-  "my $var = " . $self->_generate_BUILDARGS($class_var, '@_') . ";\n";
+    my ( $self, $var, $class_var ) = @_;
+    "my $var = " . $self->_generate_BUILDARGS( $class_var, '@_' ) . ";\n";
 }
 
 sub _generate_instance {
-  my ($self, $var, $class_var) = @_;
-  "my $var = " . $self->meta_instance->inline_create_instance($class_var) 
-               . ";\n";
+    my ( $self, $var, $class_var ) = @_;
+    "my $var = "
+        . $self->meta_instance->inline_create_instance($class_var) . ";\n";
 }
 
 sub _generate_slot_initializers {