as andy pointed out, we've made some revisions.
here's my latest (a derivitave of which I've included in my Apache::AuthDigest RFC)
use Test::More;
use File::Spec;
use File::Find qw(find);
use strict;
eval {
require Test::Pod;
Test::Pod->import;
};
if ($@) {
plan skip_all => "Test::Pod required for testing POD";
}
else {
my @files;
find(
sub { push @files, $File::Find::name if m!\.p(m|od|l)$! },
File::Spec->catfile(qw(blib lib))
);
plan tests => scalar @files;
foreach my $file (@files) {
pod_ok($file);
}
}
I guess there's always more tweaking to be done, but this is the last post for this bit here I think...
Is it just that way for ease of implementation?
-Dom
