File: t91pod.t

package info (click to toggle)
libimager-perl 0.65-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 4,388 kB
  • ctags: 3,248
  • sloc: ansic: 23,579; perl: 20,528; makefile: 52
file content (12 lines) | stat: -rw-r--r-- 342 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
 
#!perl -w
use strict;
use Test::More;
use ExtUtils::Manifest qw(maniread);
eval "use Test::Pod 1.00;";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
my $manifest = maniread();
my @pod = grep /\.(pm|pl|pod|PL)$/, keys %$manifest;
plan tests => scalar(@pod);
for my $file (@pod) {
  pod_file_ok($file, "pod ok in $file");
}