1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/usr/bin/perl -w
## Make sure we can "use" every module
use strict;
use vars qw(@classes);
use lib 'lib';
BEGIN {
eval "use Test::Pod";
if ( $@ ) {
print "1..0 # Skipped - do not have Test::Pod installed\n";
exit;
}
eval "use File::Find::Rule";
if ( $@ ) {
print
"1..0 # Skipped - do not have File::Find::Rule installed\n";
exit;
}
}
BEGIN {
@classes
= File::Find::Rule->file()->name( '*.pm' )->in( 'blib/lib' );
}
use Test::Pod tests => scalar @classes;
for my $class ( @classes ) {
pod_file_ok( $class );
}
|
