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 (file)
--- 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 (file)
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();