projects
/
gitmo/Mouse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Add methods to PurePerl.pm
[gitmo/Mouse.git]
/
lib
/
Mouse
/
PurePerl.pm
diff --git
a/lib/Mouse/PurePerl.pm
b/lib/Mouse/PurePerl.pm
index
ede54ca
..
e5859d1
100644
(file)
--- 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};