X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fauthor%2Fpod_coverage.t;h=5e0eb9348ecf5469a0d2b26d9cd4c3041a3c3d46;hb=b5331fcbe6111bb33ccc9dfde4c5d2bebc255f82;hp=d7e3e93965525b938bb1dd59be2edbc917558a48;hpb=b0ae51fa96147261fa8c3629dabceffea400153b;p=gitmo%2FMoose.git

diff --git a/xt/author/pod_coverage.t b/xt/author/pod_coverage.t
index d7e3e93..5e0eb93 100644
--- a/xt/author/pod_coverage.t
+++ b/xt/author/pod_coverage.t
@@ -5,12 +5,13 @@ 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 $@;
+use Test::Requires {
+    '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 = (
@@ -31,6 +32,7 @@ my %trustme = (
             construct_instance
             create_error
             raise_error
+            reinitialize
             superclasses
             )
     ],
@@ -59,11 +61,13 @@ my %trustme = (
     'Moose::Meta::Role'               => [
         qw( alias_method
             get_method_modifier_list
+            reinitialize
             reset_package_cache_flag
             update_package_cache_flag
             wrap_method_body
             )
     ],
+    'Moose::Meta::Mixin::AttributeCore' => ['.+'],
     'Moose::Meta::Role::Composite' =>
         [ 'get_method', 'get_method_list', 'has_method', 'add_method' ],
     'Moose::Role' => [
@@ -88,13 +92,16 @@ my %trustme = (
         [qw( constraint equals get_message )],
     'Moose::Meta::TypeConstraint::Parameterizable' => ['.+'],
     'Moose::Meta::TypeConstraint::Parameterized'   => ['.+'],
-    'Moose::Meta::TypeConstraint::Role'  => [qw( equals is_a_type_of )],
-    'Moose::Meta::TypeConstraint::Union' => ['compile_type_constraint'],
-    'Moose::Util'                        => ['add_method_modifier'],
+    'Moose::Meta::TypeConstraint::Role' => [qw( equals is_a_type_of )],
+    'Moose::Meta::TypeConstraint::Union' =>
+        [qw( compile_type_constraint coercion has_coercion)],
+    'Moose::Util'                  => ['add_method_modifier'],
+    'Moose::Util::MetaRole'        => ['apply_metaclass_roles'],
     'Moose::Util::TypeConstraints' => ['find_or_create_type_constraint'],
 );
 
 for my $module ( sort @modules ) {
+
     my $trustme = [];
     if ( $trustme{$module} ) {
         my $methods = join '|', @{ $trustme{$module} };