[Moose-commits] r7674 - Class-MOP/trunk/lib/Class/MOP

[autarch at code2.0beta.co.uk]

Author: autarch
Date: 2009-02-14 07:07:06 -0800 (Sat, 14 Feb 2009)
New Revision: 7674

Modified:
   Class-MOP/trunk/lib/Class/MOP/Class.pm
Log:
Tidy the constructor code


Modified: Class-MOP/trunk/lib/Class/MOP/Class.pm
===================================================================
--- Class-MOP/trunk/lib/Class/MOP/Class.pm	2009-02-14 12:27:37 UTC (rev 7673)
+++ Class-MOP/trunk/lib/Class/MOP/Class.pm	2009-02-14 15:07:06 UTC (rev 7674)
@@ -103,7 +103,7 @@
 
     bless {
         # inherited from Class::MOP::Package
-        'package'                     => $options->{package},
+        'package' => $options->{package},
 
         # NOTE:
         # since the following attributes will
@@ -113,19 +113,25 @@
         # listed here for reference, because they
         # should not actually have a value associated
         # with the slot.
-        'namespace'                   => \undef,
+        'namespace' => \undef,
+
         # inherited from Class::MOP::Module
-        'version'                     => \undef,
-        'authority'                   => \undef,
+        'version'   => \undef,
+        'authority' => \undef,
+
         # defined in Class::MOP::Class
-        'superclasses'                => \undef,
+        'superclasses' => \undef,
 
-        'methods'                     => {},
-        'attributes'                  => {},
-        'attribute_metaclass'         => $options->{'attribute_metaclass'}      || 'Class::MOP::Attribute',
-        'method_metaclass'            => $options->{'method_metaclass'}         || 'Class::MOP::Method',
-        'wrapped_method_metaclass'    => $options->{'wrapped_method_metaclass'} || 'Class::MOP::Method::Wrapped',
-        'instance_metaclass'          => $options->{'instance_metaclass'}       || 'Class::MOP::Instance',
+        'methods'             => {},
+        'attributes'          => {},
+        'attribute_metaclass' => $options->{'attribute_metaclass'}
+            || 'Class::MOP::Attribute',
+        'method_metaclass' => $options->{'method_metaclass'}
+            || 'Class::MOP::Method',
+        'wrapped_method_metaclass' => $options->{'wrapped_method_metaclass'}
+            || 'Class::MOP::Method::Wrapped',
+        'instance_metaclass' => $options->{'instance_metaclass'}
+            || 'Class::MOP::Instance',
     }, $class;
 }