+package Mouse::PurePerl;
+
package
Mouse::Util;
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};
sub _compiled_type_coercion { $_[0]->{_compiled_type_coercion} }
-
sub has_coercion{ exists $_[0]->{_compiled_type_coercion} }
1;
__END__
+
+=head1 NAME
+
+Mouse::PurePerl - A Mouse guts in pure Perl
+
+=head1 VERSION
+
+This document describes Mouse version 0.40_01
+
+=head1 SEE ALSO
+
+L<Mouse::XS>
+
+=cut