The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -w
use strict;
use Test::More;
eval <<EOI;
use Test::Pod;
EOI
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
my @poddirs;
if (-r 'lib') {
  @poddirs = qw( blib lib examples);
}
elsif (-r '../lib') {
  @poddirs = qw( ../lib ../blib ../examples);
}
else {
  plan skip_all => "don't know where directory I am";
}
all_pod_files_ok( all_pod_files( @poddirs ) );