18 lines
295 B
Perl
18 lines
295 B
Perl
#!/usr/bin/perl -w
|
|
|
|
#
|
|
# Test that the POD we use in our modules is valid.
|
|
#
|
|
|
|
|
|
use strict;
|
|
use Test::More;
|
|
eval "use Test::Pod 1.00";
|
|
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
|
|
|
|
#
|
|
# Run the test(s).
|
|
#
|
|
my @poddirs = qw( . );
|
|
all_pod_files_ok( all_pod_files( @poddirs ) );
|