From: gfx <gfuji@cpan.org>
Date: Tue, 27 Oct 2009 03:54:06 +0000 (+0900)
Subject: Add methods to PurePerl.pm
X-Git-Tag: 0.40_02~21
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=926404f252300168bbda72dc0aa43aefa8de2f43;p=gitmo%2FMouse.git

Add methods to PurePerl.pm
---

diff --git a/lib/Mouse/PurePerl.pm b/lib/Mouse/PurePerl.pm
index ede54ca..e5859d1 100644
--- a/lib/Mouse/PurePerl.pm
+++ b/lib/Mouse/PurePerl.pm
@@ -126,7 +126,10 @@ sub RoleName   { (Mouse::Util::class_of($_[0]) || return 0)->isa('Mouse::Meta::R
 package
     Mouse::Meta::Module;
 
-sub name { $_[0]->{package} }
+sub name          { $_[0]->{package} }
+
+sub _method_map   { $_[0]->{methods} }
+sub _attribute_map{ $_[0]->{attribute_map} }
 
 sub namespace{
     my $name = $_[0]->{package};