1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# -*- perl -*-
# Testing Plain old Documentation for Curses::UI
# 2004 (c) by Marcus Thiesen
# marcus@cpan.org
use strict;
use FindBin;
use File::Find;
use Test::More;
#use Test::Pod (tests => 45);
eval "use Test::Pod (tests => 45)";
plan skip_all => "Test::Pod required for testing POD" if $@;
sub wanted {
if ($File::Find::name =~ /\.pm$/) {
pod_file_ok( "$File::Find::name", "POD Documentation in $_" );
}
}
my $dir = "$FindBin::RealBin/../lib/Curses/";
find(\&wanted, ($dir));
|
