From: Tokuhiro Matsuno <tokuhirom@gmail.com>
Date: Sat, 11 Apr 2009 11:08:50 +0000 (+0900)
Subject: fixed pod mark up bug. and added Test::Pod test.
X-Git-Tag: 0.21~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=4e8817b825f0f9f3ca39ee5416004f7b70b9722a

fixed pod mark up bug. and added Test::Pod test.
https://rt.cpan.org/Public/Bug/Display.html?id=44928
---

diff --git a/lib/Mouse/Role.pm b/lib/Mouse/Role.pm
index 5f620f3..c798d6a 100644
--- a/lib/Mouse/Role.pm
+++ b/lib/Mouse/Role.pm
@@ -163,6 +163,8 @@ L<Class::Method::Modifiers/after>.
 Sets up an "around" method modifier. See L<Moose/around> or
 L<Class::Method::Modifiers/around>.
 
+=over 4
+
 =item B<super>
 
 Sets up the "super" keyword. See L<Moose/super>.
@@ -179,6 +181,8 @@ This is not supported and emits an error. See L<Moose/Role>.
 
 This is not supported and emits an error. See L<Moose/Role>.
 
+=back
+
 =head2 has (name|names) => parameters
 
 Sets up an attribute (or if passed an arrayref of names, multiple attributes) to
diff --git a/xt/99_pod.t b/xt/99_pod.t
new file mode 100644
index 0000000..437887a
--- /dev/null
+++ b/xt/99_pod.t
@@ -0,0 +1,4 @@
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();