1#!/usr/bin/perl
2###########################################
3# Mike Schilli, 2002 (m@perlmeister.com)
4###########################################
5use warnings;
6use strict;
7
8use Test::Pod;
9use Test::More;
10use File::Find;
11
12podok(@ARGV);
130;
14
15##################################################
16sub podok {
17##################################################
18    my ($dir) = @_;
19
20    $dir ||= ".";
21
22    my @pms = ();
23
24    File::Find::find( sub {
25        return unless -f $_;
26        return unless /\.pm$/;
27        push @pms, "$File::Find::name";
28    }, $dir);
29
30    my $nof_tests = scalar @pms;
31
32    plan tests => $nof_tests;
33
34    for(@pms) {
35        pod_ok($_);
36    }
37}
38