#!/usr/bin/perl -w use strict; use Test::More; eval < "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 ) );