Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

27 lines (18 sloc) 0.467 kb
# $Id: pod.t,v 1.1 2003/09/29 21:36:31 ctriv Exp $
use Test::More;
use File::Spec;
use File::Find;
use strict;
eval "use Test::Pod 0.95";
if ($@) {
plan skip_all => "Test::Pod v0.95 required for testing POD";
} else {
Test::Pod->import;
my @files;
my $blib = File::Spec->catfile(qw(blib lib));
find( sub { push(@files, $File::Find::name) if /\.p(l|m|od)$/}, $blib);
plan tests => scalar @files;
foreach my $file (@files) {
pod_file_ok($file);
}
}
Jump to Line
Something went wrong with that request. Please try again.