[gitmo/Class-MOP.git] / xt / pod_coverage.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

eval "use Test::Pod::Coverage 1.04";
plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;

# This is a stripped down version of all_pod_coverage_ok which lets us
# vary the trustme parameter per module.
my @modules = all_modules();
plan tests => scalar @modules;

my %trustme = (
    'Class::MOP::Attribute' => ['process_accessors'],
);

for my $module ( sort @modules ) {
    my $trustme = [];
    if ( $trustme{$module} ) {
        my $methods = join '|', @{ $trustme{$module} };
        $trustme = [qr/$methods/];
    }

    pod_coverage_ok(
        $module, { trustme => $trustme },
        "Pod coverage for $module"
    );
}
Commit	Line	Data
9f32bdd8	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7
	8	eval "use Test::Pod::Coverage 1.04";
	9	plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
	10
	11	# This is a stripped down version of all_pod_coverage_ok which lets us
	12	# vary the trustme parameter per module.
	13	my @modules = all_modules();
	14	plan tests => scalar @modules;
	15
	16	my %trustme = (
	17	'Class::MOP::Attribute' => ['process_accessors'],
	18	);
	19
	20	for my $module ( sort @modules ) {
	21	my $trustme = [];
	22	if ( $trustme{$module} ) {
	23	my $methods = join '\|', @{ $trustme{$module} };
	24	$trustme = [qr/$methods/];
	25	}
	26
	27	pod_coverage_ok(
	28	$module, { trustme => $trustme },
	29	"Pod coverage for $module"
	30	);
	31	}