From: Stevan Little <stevan.little@iinteractive.com>
Date: Wed, 12 Dec 2007 22:21:50 +0000 (+0000)
Subject: name tweaks;
X-Git-Tag: 0_33~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=638853cbc28be2501c223f929b94c34c24463644;p=gitmo%2FMoose.git

name tweaks;
---

diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm
index 9203d13..665b318 100644
--- a/lib/Moose/Meta/Role.pm
+++ b/lib/Moose/Meta/Role.pm
@@ -282,10 +282,11 @@ sub method_metaclass { 'Moose::Meta::Role::Method' }
 sub get_method_map {    
     my $self = shift;
     $self->{'%!methods'} ||= {}; 
-    $self->{'$!_package_cache_flag'} = undef;
+    $self->reset_package_cache_flag;
     $self->Moose::Meta::Class::get_method_map() 
 }
-sub reset_package_cache_flag { () }
+sub update_package_cache_flag { () }
+sub reset_package_cache_flag  { (shift)->{'$!_package_cache_flag'} = undef; }
 
 # FIXME:
 # Yes, this is a really really UGLY hack
@@ -341,7 +342,7 @@ sub apply {
     
     # NOTE:
     # we need a clear cache flag too ...
-    $other->{'$!_package_cache_flag'} = undef;    
+    $other->reset_package_cache_flag;    
 
     $self->_apply_override_method_modifiers($other);                  
     $self->_apply_before_method_modifiers($other);                  
@@ -668,6 +669,8 @@ probably not that much really).
 
 =item B<get_method_map>
 
+=item B<update_package_cache_flag>
+
 =item B<reset_package_cache_flag>
 
 =back