web/server/h2o/libh2o/misc/p5-net-fastcgi/xt/010_pod_coverage.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

#!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 );
}