package Mouse::PurePerl;
+require Mouse::Util;
+
package
Mouse::Util;
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};
sub linearized_isa { @{ get_linear_isa($_[0]->{package}) } }
+sub get_all_attributes {
+ my($self) = @_;
+ my %attrs = map { %{ $self->initialize($_)->_attribute_map } } reverse $self->linearized_isa;
+ return values %attrs;
+}
+
package
Mouse::Meta::Role;
=head1 VERSION
-This document describes Mouse version 0.40_04
+This document describes Mouse version 0.40_05
=head1 SEE ALSO