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

use Test::More;
use Test::Pod;
use File::Spec::Functions qw/updir catdir/;

BEGIN
{   eval "use Test::Pod 1.00";

    plan skip_all => "Test::Pod 1.00 required for testing POD"
        if $@;

    plan skip_all => "devel home uses OODoc"
        if qx(/bin/pwd) =~ m[^/home/markov/];
}

my @dirs = map { catdir updir, $_ } qw(lib script);
all_pod_files_ok all_pod_files @dirs;