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

Add document
---

diff --git a/lib/Mouse/PurePerl.pm b/lib/Mouse/PurePerl.pm
index e5859d1..7d11a63 100644
--- a/lib/Mouse/PurePerl.pm
+++ b/lib/Mouse/PurePerl.pm
@@ -1,3 +1,5 @@
+package Mouse::PurePerl;
+
 package
     Mouse::Util;
 
@@ -243,8 +245,21 @@ sub _compiled_type_constraint{ $_[0]->{compiled_type_constraint} }
 
 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
diff --git a/lib/Mouse/XS.pod b/lib/Mouse/XS.pod
new file mode 100644
index 0000000..bc89643
--- /dev/null
+++ b/lib/Mouse/XS.pod
@@ -0,0 +1,30 @@
+
+=head1 NAME
+
+Mouse::XS - A Mouse guts in XS
+
+=head1 VERSION
+
+This document describes Mouse version 0.40_01
+
+=head1 DESCRIPTION
+
+Mouse has an optional XS implementation. This is automatically built
+and used if available.
+
+=head2 INSTALL
+
+If you do not want to build the XS implementation, you can pass the C<--pp>
+option to F<Makefile.PL>.
+
+    perl Makefile.PL --pp
+
+=head2 The MOUSE_PUREPERL environment variable
+
+It can be used to enable the use of Mouse::PurePerl.
+
+=head1 SEE ALSO
+
+L<Mouse::PurePerl>
+
+=cut