foo

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

diff --git a/lib/Class/MOP/Method/Constructor.pm b/lib/Class/MOP/Method/Constructor.pm
index 2d4c99a..08812bc 100644 (file)
--- a/lib/Class/MOP/Method/Constructor.pm
+++ b/lib/Class/MOP/Method/Constructor.pm
@@ -31,17 +31,17 @@ sub new {
     
     my $self = bless {
         # from our superclass
-        '&!body'          => undef,
+        body          => undef,
         # specific to this subclass
-        '%!options'       => $options{options},
-        '$!meta_instance' => $options{meta_instance},
-        '@!attributes'    => $options{attributes},        
+        options       => $options{options},
+        meta_instance => $options{meta_instance},
+        attributes    => $options{attributes},        
     } => $class;
 
     # we don't want this creating 
     # a cycle in the code, if not 
     # needed
-    weaken($self->{'$!meta_instance'});
+    weaken($self->{meta_instance});
 
     $self->intialize_body;
 
@@ -50,9 +50,9 @@ sub new {
 
 ## accessors 
 
-sub options       { (shift)->{'%!options'}       }
-sub meta_instance { (shift)->{'$!meta_instance'} }
-sub attributes    { (shift)->{'@!attributes'}    }
+sub options       { (shift)->{options}       }
+sub meta_instance { (shift)->{meta_instance} }
+sub attributes    { (shift)->{attributes}    }
 
 ## method
 
@@ -85,7 +85,7 @@ sub intialize_body {
         $code = eval $source;
         confess "Could not eval the constructor :\n\n$source\n\nbecause :\n\n$@" if $@;
     }
-    $self->{'&!body'} = $code;
+    $self->{body} = $code;
 }
 
 sub _generate_slot_initializer {