From: Yuval Kogman <nothingmuch@woobling.org>
Date: Sat, 16 Aug 2008 03:38:32 +0000 (+0000)
Subject: package cache flag methods for Role
X-Git-Tag: 0_55_01~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4be029763d52eb7f1a446c4f262e1f770492743;p=gitmo%2FMoose.git

package cache flag methods for Role
---

diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm
index 9625ee3..4a36f24 100644
--- a/lib/Moose/Meta/Role.pm
+++ b/lib/Moose/Meta/Role.pm
@@ -240,6 +240,14 @@ sub get_method_modifier_list {
     keys %{$self->$accessor};
 }
 
+sub reset_package_cache_flag  { (shift)->{'_package_cache_flag'} = undef }
+sub update_package_cache_flag {
+    my $self = shift;
+    $self->{'_package_cache_flag'} = Class::MOP::check_package_cache_flag($self->name);
+}
+
+
+
 ## ------------------------------------------------------------------
 ## subroles