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