doc/man-pages/check-pod

   1 #!/usr/bin/perl
   2 #
   3 # Written by Jason Edgecombe based on the Test::Pod documentation.  The
   4 # best way to run it is to run:
   5 #
   6 #     prove check-pod
   7 #
   8 # from the doc/man-pages directory, which will show any errors found in
   9 # any of the POD files.
  10
  11 use strict;
  12 use Test::More;
  13 eval "use Test::Pod 1.00";
  14
  15 plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
  16 my @poddirs = qw( pod1 pod5 pod8 );
  17 all_pod_files_ok( all_pod_files( @poddirs ) );