Fix up author check pod script

benkasminbullock · Mar 13, 2021 · 7bf3dfd · 7bf3dfd
1 parent 2dd906a
commit 7bf3dfd
Showing 1 changed file with 14 additions and 2 deletions.
diff --git a/xt/checkpod.t b/xt/checkpod.t
@@ -9,8 +9,20 @@ binmode $builder->failure_output, ":utf8";
 binmode $builder->todo_output,    ":utf8";
 binmode STDOUT, ":encoding(utf8)";
 binmode STDERR, ":encoding(utf8)";
-use Perl::Build::Pod 'pod_checker';
-my $filepath = "$Bin/../lib/Convert/Moji.pm";
+use Perl::Build::Pod qw/pod_checker pod_link_checker/;
+my $filepath = "$Bin/../lib/Convert/Moji.pod";
 my $errors = pod_checker ($filepath);
 ok (@$errors == 0, "No errors");
+if (@$errors > 0) {
+    for (@$errors) {
+	note "$_";
+    }
+}
+my $linkerrors = pod_link_checker ($filepath);
+ok (@$linkerrors == 0, "No link errors");
+if (@$linkerrors > 0) {
+    for (@$linkerrors) {
+	note "$_";
+    }
+}
 done_testing ();