#!/usr/bin/perl
# Test that the syntax of our POD documentation is valid
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
my @MODULES = (
'Pod::Simple 3.07',
'Test::Pod 1.41',
);
# Load the testing modules
use Test::More;
foreach my $MODULE ( @MODULES ) {
eval "use $MODULE";
if ( $@ ) {
BAIL_OUT( "Failed to load required release-testing module $MODULE" )
}
}
%Test::Pod::ignore_dirs = %Test::Pod::ignore_dirs = (
'.bzr' => 'Bazaar',
'.git' => 'Git',
'.hg' => 'Mercurial',
'.pc' => 'quilt',
'.svn' => 'Subversion',
'CVS' => 'CVS',
'RCS' => 'RCS',
'SCCS' => 'SCCS',
'_darcs' => 'darcs',
'_sgbak' => 'Vault/Fortress',
);
my @files = sort { $a cmp $b } all_pod_files();
all_pod_files_ok( @files );