xt/author/podcoverage.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 use Pod::Coverage 0.19;
   6 use Test::Pod::Coverage 1.04;
   7
   8 my @modules = all_modules;
   9 our @private = ( 'BUILD' );
  10 foreach my $module (@modules) {
  11     next if $module =~ /Unicode::Encoding/;
  12     local @private = (@private, 'run', 'dont_close_all_files') if $module =~ /^Catalyst::Script::/;
  13     local @private = (@private, 'plugin') if $module =~ /^Catalyst$/;
  14     local @private = (@private, 'snippets') if $module =~ /^Catalyst::Request$/;
  15     local @private = (@private, 'prepare_connection') if $module =~ /^Catalyst::Engine$/;
  16
  17     pod_coverage_ok($module, {
  18         also_private   => \@private,
  19         coverage_class => 'Pod::Coverage::TrustPod',
  20     });
  21 }
  22
  23 done_testing;