Don't expect docs for all the Native::* accessor modules
Dave Rolsky [Thu, 23 Sep 2010 22:39:32 +0000 (17:39 -0500)]
xt/author/pod_coverage.t

index 93232d8..5e0eb93 100644 (file)
@@ -6,12 +6,12 @@ use warnings;
 use Test::More;
 
 use Test::Requires {
-    'Test::Pod::Coverage' => '1.04', # skip all if not installed
+    'Test::Pod::Coverage' => '1.04',    # skip all if not installed
 };
 
 # This is a stripped down version of all_pod_coverage_ok which lets us
 # vary the trustme parameter per module.
-my @modules = all_modules();
+my @modules = grep { !/Accessor::Native.+$/ } all_modules();
 plan tests => scalar @modules;
 
 my %trustme = (
@@ -101,6 +101,7 @@ my %trustme = (
 );
 
 for my $module ( sort @modules ) {
+
     my $trustme = [];
     if ( $trustme{$module} ) {
         my $methods = join '|', @{ $trustme{$module} };