Fix a typo
gfx [Tue, 3 Nov 2009 04:09:03 +0000 (13:09 +0900)]
lib/Mouse/PurePerl.pm

index 1dbb7ab..f5e3599 100644 (file)
@@ -168,7 +168,7 @@ package
 sub name          { $_[0]->{package} }
 
 sub _method_map   { $_[0]->{methods} }
-sub _attribute_map{ $_[0]->{attribute_map} }
+sub _attribute_map{ $_[0]->{attributes} }
 
 sub namespace{
     my $name = $_[0]->{package};