[catagits/XML-Feed.git] / t / pod-coverage.t

#!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 $@;
my @modules   = grep { !/(RSS|Atom)/ }Test::Pod::Coverage::all_modules();
plan tests => scalar(@modules);
pod_coverage_ok($_, { also_private => [ qr/^init_empty/ ], },) for @modules;
Commit	Line	Data
8c30ad3d	1	#!perl
	2
	3	use strict;
	4	use warnings;
	5	use Test::More;
	6	eval 'use Test::Pod::Coverage 1.04';
	7	plan skip_all => 'Test::Pod::Coverage 1.04 required for testing POD coverage' if $@;
	8	my @modules = grep { !/(RSS\|Atom)/ }Test::Pod::Coverage::all_modules();
	9	plan tests => scalar(@modules);
	10	pod_coverage_ok($_, { also_private => [ qr/^init_empty/ ], },) for @modules;
	11