switch from add_package_symbol for the sake of immutable
Guillermo Roditi [Mon, 23 Jun 2008 21:21:10 +0000 (21:21 +0000)]
r18429@martha (orig r7907):  matthewt | 2008-06-10 12:24:55 -0400

lib/Catalyst/ClassData.pm

index e7379d1..04e074c 100644 (file)
@@ -13,7 +13,7 @@ sub mk_classdata {
   my $accessor =  sub {
     my $meta = $_[0]->meta;
     if(@_ > 1){
-      $meta->add_package_symbol($slot, \ $_[1]);
+      $meta->namespace->{$attribute} = \$_[1];
       return $_[1];
     }