X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FClass.pm;fp=lib%2FMouse%2FMeta%2FClass.pm;h=20b2181dc9ed9574e24f16b59a96e18ea4b07ef5;hp=14a8762c72cc5dfa32897499b07c0ecc26d274f3;hb=6f09819f35c5d66d8de41a6d8aa1cd1395815397;hpb=b11787bf7cafe5074ae42bf8ef4258c5c176f1d2 diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm index 14a8762..20b2181 100644 --- a/lib/Mouse/Meta/Class.pm +++ b/lib/Mouse/Meta/Class.pm @@ -241,7 +241,7 @@ sub add_attribute { # then register the attribute to the metaclass $attr->{insertion_order} = keys %{ $self->{attributes} }; $self->{attributes}{$name} = $attr; - delete $self->{_mouse_cache}; # clears internal cache + $self->_invalidate_metaclass_cache(); if(!$attr->{associated_methods} && ($attr->{is} || '') ne 'bare'){ Carp::carp(qq{Attribute ($name) of class }.$self->name