1#!/usr/bin/perl 2 3use strict; 4use warnings; 5 6use vars qw( @files ); 7 8BEGIN { 9 eval "require File::Find::Rule"; 10 if ($@) 11 { 12 print "1..1\nok 1 # skip File::Find::Rule not installed\n"; 13 exit; 14 } 15 @files = File::Find::Rule->file()->name( '*.pm', '*.pod' )->in( 'blib/lib' ); 16} 17 18use Test::More tests => scalar @files; 19 20eval "use Test::Pod 0.95"; 21SKIP: { 22 skip "Test::Pod 0.95 not installed.", scalar @files if $@; 23 pod_file_ok( $_ ) for @files; 24} 25