#!perl
use strict;
use warnings;
use Test::More;
BEGIN {
eval 'use Test::Pod::Coverage';
if ($@) {
plan skip_all => 'Needs Test::Pod::Coverage';
}
}
my @modules = sort grep { !/::(?:PP|XS)$/ } all_modules();
plan tests => scalar(@modules);
foreach my $module ( @modules ) {
my $params = {};
if ( $module =~ /^Net::FastCGI::Protocol$/ ) {
$params->{coverage_class} = 'Pod::Coverage::ExportOnly';
}
pod_coverage_ok( $module, $params );
}