#!/usr/bin/perl
######################################################################
# podok -- Mike Schilli, 2001 (m@perlmeister.com)
######################################################################

my $VERSION = "1.0";
our $CVSVERSION = '$Revision: 1.2 $';

use Test::Pod;
use Test::More;
use File::Find;

my @pms = ();

$|++;

File::Find::find( sub {
    next unless -f $_;
    next unless /\.pm$/;
    # print "Found ($_) $File::Find::name\n";
    push @pms, "$File::Find::name";
}, ".");

my $nof_tests = scalar @pms;

plan tests => $nof_tests;

for(@pms) {
    pod_ok($_);
}

__END__

=head1 NAME

    podok - Searches for *.pm files recursively and checks if their POD is ok

=head1 DOWNLOAD

_SRC_HERE_

=head1 SYNOPSIS

    podok

=head1 DESCRIPTION

B<podok> makes sure a module's distribution contains correct POD.

Starting from the current directory, it will recursively search for
all C<*.pm> files, run them through pod_ok() and report the result
like C<Test::Harness> does (actually, it's using Test::Harness).

B<podok> has been inspired by C<brian d foy>'s article in TPJ,
where he introduced Test::Pod.

=head1 LEGALESE

Copyright 2002 by Mike Schilli, all rights reserved.
This program is free software, you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 AUTHOR

2001, Mike Schilli <m@perlmeister.com>