t/pod-coverage.t

   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