X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass.pm;h=f1c80aea2f4cfd9c2799585c556dca7d9438d47f;hb=e50536940adf2ebaef907a0c29ae37fbd5ce95b1;hp=79d763081faf13f5fdf623bcbd53f9a55210a2e4;hpb=d009cb7d393292037eff527a9f8bab93860224fb;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class.pm b/lib/DBIx/Class.pm index 79d7630..f1c80ae 100644 --- a/lib/DBIx/Class.pm +++ b/lib/DBIx/Class.pm @@ -53,7 +53,7 @@ sub inject_base { sub MODIFY_CODE_ATTRIBUTES { my ($class,$code,@attrs) = @_; - $class->mk_classdata('__attr_cache' => {}) + $class->mk_classaccessor('__attr_cache' => {}) unless $class->can('__attr_cache'); $class->__attr_cache->{$code} = [@attrs]; return ();