The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl -w

# $Id: tpod.t 22 2010-09-23 23:04:07Z stro $

use strict;
use warnings;

eval 'use Test::More';
if ($@) {
  eval 'use Test; plan tests => 1;';
  skip('Test::More is required for testing POD',);
} else {
  require Test::More;
  eval 'use Test::Pod 1.00';
  plan (skip_all => 'Test::Pod is required for testing POD') if $@;
  my @poddirs = qw( blib script );
  all_pod_files_ok( all_pod_files( @poddirs ) );
}