xt/release/pod-coverage.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 use Test::Requires {
   9     'Test::Pod::Coverage'  => '1.04',
  10     'Pod::Coverage::Moose' => '0.02',
  11 };
  12
  13 my %skip = map { $_ => 1 } qw( MooseX::Types::CheckedUtilExports );
  14
  15 my @modules = grep { !( $skip{$_} } all_modules();
  16
  17 my %trustme = ( Courriel => ['replace_body'] );
  18
  19 for my $module ( sort @modules ) {
  20     my $trustme = [];
  21
  22     if ( $trustme{$module} ) {
  23         if ( ref $trustme{$module} eq 'ARRAY' ) {
  24             my $methods = join '|', @{ $trustme{$module} };
  25             $trustme = [qr/^(?:$methods)$/];
  26         }
  27         else {
  28             $trustme = [ $trustme{$module} ];
  29         }
  30     }
  31
  32     push @{$trustme}, qr/^BUILD$/;
  33
  34     pod_coverage_ok(
  35         $module, {
  36             coverage_class => 'Pod::Coverage::Moose',
  37             trustme        => $trustme,
  38         },
  39         "Pod coverage for $module"
  40     );
  41 }
  42
  43 done_testing();