X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FClassData.pm;fp=lib%2FCatalyst%2FClassData.pm;h=6174ffd7a6475a35299d852e1c13b4a238467152;hp=87b68c9952a85454bfb9d91c3ed48c1accb6a261;hb=54bee50ff7b3e30e2c370eb6249e021229cb9c6b;hpb=76721d3c6f8660effa365b8c1574b1e87f4973cb diff --git a/lib/Catalyst/ClassData.pm b/lib/Catalyst/ClassData.pm index 87b68c9..6174ffd 100644 --- a/lib/Catalyst/ClassData.pm +++ b/lib/Catalyst/ClassData.pm @@ -16,18 +16,6 @@ sub mk_classdata { my $meta = $pkg->Class::MOP::Object::meta(); if (@_ > 1) { $meta->namespace->{$attribute} = \$_[1]; - no strict 'refs'; - if (! *{"${pkg}::${attribute}"}{CODE} ) { - foreach my $super ( $meta->linearized_isa ) { - # If there is a code symbol for this class data in a parent class, but not in our - # class then copy it into our package. This is evil. - my $parent_symbol = *{"${super}::${attribute}"}{CODE} ? \&{"${super}::${attribute}"} : undef; - if (defined $parent_symbol) { - *{"${pkg}::${attribute}"} = $parent_symbol; - last; - } - } - } return $_[1]; }